
2 Jul
2004
2 Jul
'04
5:32 a.m.
at a guess the magic take put is: block ( do a <- takeMVar x putMVar x a ) return a Keean.