#!/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 b c) (sum-of-squares (+ 2 a) (* 2 b) (square (square c))))
(f 3 4 5)
)