(begin (call/cc (lambda (c) (display ">>780") (newline) (display "ふふ〜ん") (newline) (c (values 782 'デフォルトの名無しさん 'sage)))))