Funkcia, ktorá vráti počet tých prvkov zoznamu, ktoré sú číslami na najvyššej úrovni v zozname.
Príklad:
(spocitaj-cisla '(a 1 2 b) ) -> 2