Common Lisp, Scheme Part 14

さっきはじめてgauche使ってlispを触ってみた。
今までは実行せずに「リスト遊び」と「SICP」を読んでただけ。
で、「コマンドライン引数に指定されたファイルを印字する」スクリプト
書いてみた。(関数名変かもしれんが気にしないでくれ)

(define ret_data (lambda (fname)
  (port->string-list (open-input-file fname))))

(define print_forlist
  (lambda (x)
    (if (not (null? x))
      (and
        (print (car x))
        (print_forlist (cdr x))
      ))))

(define main
  (lambda (env)
    (if (not (null? (cdr env)))
      (and
        (print_forlist (ret_data (car (cdr env))))
        (main (cdr env))
      ))))

gauche使いな偉い人達はどういう風に書くの?