(load "/home/rohan/sw/sw-61/scheme/purify.scm")

(purify #f)				; => 0

(purify '(/s #t))			; => ("/s" 1)

(purify '(/s (#f s)))			; => ("/s" (0 "s"))