- ≫ choice [ string "pril" ≫ return 4
- , string "ugust" ≫ return 8
- ]
- , string "September" ≫ return 9
- , string "October" ≫ return 10
- , string "November" ≫ return 11
- , string "December" ≫ return 12
+ *> choice [ string "pril" *> return 4
+ , string "ugust" *> return 8
+ ]
+ , string "September" *> return 9
+ , string "October" *> return 10
+ , string "November" *> return 11
+ , string "December" *> return 12