#!/usr/local/bin/gosh
(use srfi-1)
(print
(define (sq x) (* x x)\n)
(sq 5)
)