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