parconc-examples-0.1: mvar3.hs

import Control.Concurrent

-- <<main
main = do
  m <- newEmptyMVar
  takeMVar m
-- >>