#!/usr/local/bin/gosh
(define (square x) (* x x))
(define (sum-of-squares x y) (+ (square x) (square y)))