arc> (readline) "\r" arc>
arc> (readline)hello world! "hello world!\r"
(def myreadline () (let x (readline) (if (is x "\r") (readline) x)))
-----
arc> (repeat 3 (myreadline)) 1 2 3 nil arc>