; https://esolangs.org/wiki/Truth-machine
(fun main (do
    (def x (read))
    (while (equal x 1) (print x))
    (print "Done!")))