@(define recur ())
@(recur)
@(end)
@(try)
@(recur)
@(catch stack-overflow (arg))
@(do (put-line "caught"))
@(end)