...
proc _ -> do
  takeMVar counter >>= print
...

Add a code snippet to your website: www.paste.org