1module Main where
2
3import System.Process
4
5main
6 = do (_,_,_,p) <- createProcess ((proc "main" []){ use_process_jobs = True })
7      waitForProcess p >>= print
8