-import Control.Monad.ST ( stToIO )
-import Data.IORef ( IORef, newIORef, readIORef, writeIORef )
-import System.IO ( hPutBuf )
-import Data.Maybe ( isJust )
-import Data.Char ( ord )
+import Data.IORef ( IORef, newIORef, readIORef, writeIORef )
+import Data.Maybe ( isJust )
+#if !defined(__GLASGOW_HASKELL__)
+import Data.Char ( ord )
+#endif