#!r6rs
(library (rsc3 math common)
(export squared cubed recip)
(import (rnrs))

(define (squared n)
  (* n n))

(define (cubed n)
  (* n n n))

(define (recip n)
  (/ 1 n))

)