1 2 3 4 5 6
import Foreign import Foreign.C foreign import stdcall "test" ctest :: CInt -> IO () main = ctest 3