parconc-examples-0.1: mvar1.hs

import Control.Concurrent

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