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