#!/usr/bin/gosh
'(scheme (gauche >= 0.7) r5rs)

(define (f x)
  (* x x))

(dolist (x '(1 2 3 4 5))
  (print (f x)))