-- !!! check we can detect deadlock
:set -package concurrent
Concurrent.newEmptyMVar >>= Concurrent.takeMVar