(require (lib "rscT.ss" "rscT"))

(map spp->ppm (list 1.0 0.5 2.0 (/ 2.0 3.0)))
(map ppm->spp (list 60.0 120.0 30.0 90.0))