Funkcia, ktorá všetky numerické atómy nahradí atómom 'NUM na všetkých úrovniach v danom zozname.
Príklad:
(num2S '(X 1 (2 X (Z 3)))) ; -> (X NUM (NUM X (Z NUM)))