import FastString
import FastMutInt
-import Panic ( panic )
import Control.Monad ( when )
import Data.Char ( ord )
import System.IO
import GHC.IOBase ( IO(..) )
-import System.IO ( hPutBuf )
import GHC.Ptr ( Ptr(..) )
import GHC.Exts ( Int(..), Int#, Addr# )