;;; This file is part of the Scheme Untergrund Library.

;; This code, written by Taylor Campbell, is in the public domain.

(define (circumference r) (* '#,(pi) 2 r))
(define (area r) (* '#,(pi) (expt r 2)))