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

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

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

( define (f a) (sum-of-squares (+ 2 a) (* 2 a) (square (square a))))
(f 3)
)