do 式の中でループを書く場合，イチイチ let を使うのは面倒だなぁ， と常々考えていたのですが，よく考えたら これ， fix を使えば済む話ですね： import Data.IORef import Data.Function main = do -- 無引数無名再帰 a_ref <- newIORef ( 0 :: Int ) fix…