#!/usr/local/bin/gosh
(use srfi-1)
(print
(define pi 3.14159)
(define radius 10)
(* pi (* radius radius))
)