(time)

(setq !*lower t)

(rdf "r32.ns32.compat")

(rds (open "r32.src.slboot" 'input))

(setsyntax "+-" 'may!-start!-number nil)

(module '(rlisp))

(begin2)
rds open("r32.src.rlisp",'input);

(begin2)
rds open("r32.ns32.rend",'input);

(progn (initreduce)
       (time)
       (preserve 'begin))