前はdoWhile_とか、そういう関数を定義して使ってたけど、最近は

fix \go -> foobar >>= bool (pure ()) go

とかで書いちゃってる。fixは便利だ。