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