@(next (open-command "echo foo; kill $$") :nothrow)
@a
@(do (put-line a))