mvar3.hs

import Control.Concurrent

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