(de num-do "Any"
(let "translate"
'(("Any")
(recur ("Any")
(cond
((lst? "Any")
(cons
(if (num? (car "Any"))
(lit
(list "Prg"
(list 'do (lit (car "Any")) '(run "Prg")) ) )
(car "Any") )
(mapcar recurse (cdr "Any")) ) )
(T "Any") ) ) )
(run (mapcar "translate" "Any")) ) ): (num-do (3 (3 (prin "* ")) (prinl)))
* * *
* * *
* * *
-> NIL