Parallel multipeer almost working. Getting indefinite block on MVar error