Stateモナド使うことにした