#!/usr/local/bin/gosh
(use srfi-1)
(print
(define (square x) (* x x))
(define (sum-of-squares x z) (+ (square x) (square z)))
(sum-of-squares 3 4)
)