1 2 3 4 5 6 7
module Main where import Foreign import Foreign.C.Types foreign import ccall "bar" dle :: IO CInt main = dle >>= print