なんでdefine連続して使う必要あるんだろ
stalin のサンプルコード
nfm.sc　から

(define (read-pnm pathname)
(define (read-pnm port)
(define (read-pbm raw?)