Control.Monad.ST.UnsafePerform