[Haskell] par and forkIO