ʰ
(def range min max
(null
(if (>= &min &max)
(raise 'range: min (' &min ') >= max (' &max ')')
)
(set b &min)
(while (< &b &max)
(set a &a &b)
(set b (+ &b 1))
)
)
(ret &a)
)