shithub: MicroHs

ref: 8a836cd7c2c7f07ca8bb12bff6dab08d1bc4ed62
dir: /tests/Word.hs/

View raw version 
module Word(main) where
import Prelude
import Data.Word

main :: IO ()
main = do
  putStrLn $ show (4294967295::Int)
  putStrLn $ show (1000::Word)
  putStrLn $ show twoTo32M1
  putStrLn $ show $ (*) twoTo32M1 twoTo32M1

twoTo32M1 :: Word
twoTo32M1 = 4294967295::Word