Dangeours haskell

unboxed.hs

{-# LANGUAGE MagicHash #-}
-- | Main entry point to the application.
module Main where

import GHC.Exts

-- | The main entry point.
main :: IO ()
main = do
    putStrLn $ showUnboxedInt 1#
    putStrLn $ showUnboxedInt (unbox 1)
    putStrLn $ showUnboxedInt (unbox undefined)
    

unbox :: Int -> Int#
unbox undefined = 0#
unbox (I# n) = n


showUnboxedInt n = (show $ I# n) ++ "#"