RosettaCodeData/Task/Arrays/PicoLisp/arrays-3.l

3 lines
34 B
Common Lisp

(push (cdr A) 1)
(mapc println A)