Selectionモナド
https://qiita.com/lotz/items/22c60ea59e0a510738de