import Metaplug

main = do
  s    <- setSession
  call <- compileCall "Callback.test" s
  putStrLn $ "str: " ++ (call "hello world!")
 where
  setSession = initSession "/usr/local/lib/ghc-6.6.1" [] InteractiveMode >>=
               loadFiles ["Callback.hs"]