Funkcia, ktorá všetky numerické atómy nahradí atómom 'NUM na najvyššej úrovni v zozname.
Príklad:
(num2S '(1 2 (3) X 4)) ; -> (NUM NUM (3) X NUM)