[Haskell-cafe] FFI and multi-threading

Do you guys know of a good example of Haskell calling functions to a thread-safe library (like an existing interface to a real library)? I have a function to which I need to alocate memory for each thread calling it, but I don't know how to do that. Thanks, Maurício