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

(define (abs 3)
   (cond ((< abs 5) 7)) 
              (else abs)))
)