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


(define (sum-of-squares x y)(+ (sq x) (sq y)))
(sum-of-squares 3 4)
)