Scheme の入出力ライブラリ関数の中でも read は異彩を放っている。read-char がテキストを一文字ずつ読み込むのに対し、read は S 式をひとつずつ読み込む。以下は指定したファイルから S 式を読み込む関数。 (define extract-sexp (lambda (filename) (wit…