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