mirror of
https://github.com/azur1s/bobbylisp.git
synced 2024-10-16 02:37:40 -05:00
5 lines
130 B
Plaintext
5 lines
130 B
Plaintext
|
; https://esolangs.org/wiki/Truth-machine
|
||
|
|
(fun main (do
|
||
|
|
(def x (read))
|
||
|
|
(while (equal x 1) (print x))
|
||
|
|
(print "Done!")))
|