cat - syobosyobo softdevの続き。 引数にファイル名を渡すと、ファイルを連結表示する。 引数なしなら、標準入力を用いる。 #! /usr/bin/gosh (use file.util) (define (cat args) (define (count n) (if (= n (length args)) #f (begin (print (file->stri…