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