((lambda (x) (x x)) (lambda (x) (display 'ass) (x x)))
(tagbody start (print "ASS") (go start))
(loop (princ "ASS"))