calling Haskell function  from C++