lambda_mountain 1.12.9

main := (
   (local x)
   (set x (1 2 3))
   (while x (
      (print-s x)
      (set x (head x))
   ))
);