#!/usr/local/bin/gosh
(use srfi-1)
(print
(define (square x) (* x x))
(square 3)
(define (sum-of-squares x y) (+ (square x) (square y)))
(sum-of-squares 3 5)
(define (f a) 
  (sum-of-squares (+ a 1) (* a 2)))
(f 5)
)