1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE MagicHash #-} module Main where import GHC.Exts go :: () -> Int# go () = 0# main = print (I# (go $ ()))