#!r6rs
(library (rsc3 math log)
(export log2 log10)
(import (rnrs))

(define (log* n)         (if (zero? n) n (log n)))
(define (log2 x)         (/ (log (abs x)) (log 2)))
(define (log10 x)        (/ (log x) (log 10)))

)