parconc-examples-0.1: mvar2.hs

import Control.Concurrent

-- <<main
main = do
  m <- newEmptyMVar
  forkIO $ do putMVar m 'x'; putMVar m 'y'
  r <- takeMVar m
  print r
  r <- takeMVar m
  print r
-- >>