(set *hush* true)
(LOAD "rms-sysdep.lisp")
(declare sqrt [number --> number])
(specialise sqrt 1)
(tc +)
(load "rms-defs.shen")
(set *hush* false)
(output "~A~%" (rms (iota 10)))