>>967
ごめん。"unknown"のところ間違えた。修正版。
(define type->string
 (lambda (arg)
  (if (integer? arg) "integer"
  (if (symbol? arg) "symbol"
  (if (string? arg) "string"
  (if (pair? arg) "pair?"
  "unknown"))))))