{- IOExts library does not seem to work correctly under Windows 98. Of
the following results,
only t3 is correct. Thanks for any help you can give.
> t1
(110 reductions, 310 cells)
> t2
b
Program error: {_pass hugsIORun_v1295 IOResult_Hugs_Error
IOResult_Hugs_Return +
+ "c"}
(173 reductions, 370 cells)
> t3
bzc
(32 reductions, 68 cells)
-}
import IOExts
t1 = newIOArray (1,5) "z" >>= \a ->
readIOArray a 2 >>=
putStr
t2 = newIOArray (1,5) "z" >>= \a ->
readIOArray a 2 >>= \e2 ->
writeIOArray a 2 ("b"++e2++"c") >>
readIOArray a 2 >>=
putStr
t3 = newIORef "z" >>= \a ->
readIORef a >>= \e2 ->
writeIORef a ("b"++e2++"c") >>
readIORef a >>=
putStr
