rm
Original test:
(lambda ((a default) (rand default)) #:name "Octave 3.8, oct_fill_randg" (* (- a (/ 1.0 3.0)) (+ 1 (* (/ 1 (sqrt (* 9 (- a (/ 1.0 3.0))))) rand))))