#;1> (thread-start! (lambda () (let lp () (print "beep") (thread-sleep! 1) (lp))))
#<thread: thread33>
beep
#;2> beep

#;2> beep
#;2> asdfasdfabeep


Error: unbound variable: asdfasdfa
#;2> asdbeep
#;2> asdf12341234beep


Error: unbound variable: asdf12341234
#;2> beep
beep