haskell FFI example