@@ -0,0 +1,25 @@
4+import Control.Monad.Eff
5+import Control.Monad.ST
14+fromTo lo hi = runSTArray (do
15+ arr <- newSTArray (hi - lo + 1) 0
17+ go lo hi _ arr | lo > hi = return arr
19+ pokeSTArray arrr i lo
20+ go (lo + 1) hi (i + 1) arr
24+ let t1 = runPure (fromTo 10 20)