module Main where


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

foreign import ccall "double_input" doubleInput :: CInt -> CInt
--foreign import ccall unsafe "print_string" printString :: CString -> IO ()
foreign import ccall "print_hello" printHello :: IO ()


main :: IO ()
main = do
  let b = doubleInput 2
  printHello
  putStrLn $ show b