A Haskell FFI Example