1 module Main where
    2 
    3 import System.Posix.Process
    4 import Control.Concurrent
    5 
    6 main = do
    7   pid1 <- forkProcess $ do threadDelay 100000
    8   pid2 <- forkProcess $ do threadDelay 100000
    9   print ()
   10