pipe: (=$=)の右辺のmonadを必ず先に実行するようにしてみた