#!/usr/local/bin/gosh
(use srfi-1)
(print

(define (square x) (* x x))
(square 5)
(square (* 10 2))
(square (square 10))

( define (sum-of-square x y z) (+ (square x) (square y) (square z)) )
(sum-of-square 1 1 1)
)