{-# LANGUAGE ForeignFunctionInterface #-}
module Safe where

import Foreign.C.Types
import Foreign.C.String

hello :: IO CInt
hello = newCString "hello" >>= printk >> return 0

goodbye :: IO CInt
goodbye = newCString "Goodbye" >>= printk >> return 0

foreign export regparm3 hello :: IO CInt
foreign export regparm3 goodbye :: IO CInt

foreign import regparm3 unsafe printk :: CString -> IO Int