Use (>>) and (>>=) to rewrite do block