env -> (a -> m r) -> (err -> m r) -> m r 的なモナドを自分で実装したら、割と速くなった。
env -> (a -> m r) -> (err -> m r) -> m r