module Main (main) where

import Foreign.C.String (CString, withCString)

foreign import ccall safe "__c_hello" hello :: CString -> IO ()

main :: IO ()
main = withCString "Haskell" hello