hello :: CString -> IO CInt
hello c_str = do
  str <- peekCString c_str
  result <- hsHello str
  return $ fromIntegral result
hello :: CString -> IO CInt
hello c_str = do
  str <- peekCString c_str
  result <- hsHello str
  return $ fromIntegral result
hello c_str = do
  str <- peekCString c_str
  result <- hsHello str
  return $ fromIntegral result