do-monad とか冗長だし do-m でいい。