import Panic
import Data.Char
-import Data.Word ( Word32 )
+import Data.Word
import System.IO ( Handle, stderr, stdout, hFlush )
import System.FilePath
\end{code}
instance Outputable Int where
ppr n = int n
+instance Outputable Word16 where
+ ppr n = integer $ fromIntegral n
+
instance Outputable Word32 where
ppr n = integer $ fromIntegral n