action v rew fmap action v rew id action v rew runParser action v rew fmapEither action v rew fmap1st action v repeat beta action v case action v rew . action v repeat beta action v repeat etacase action v eta action x rew fmap action x rew . action x rew runParser action x repeat beta action x case action x rew fmapEither action x repeat beta action x rew fmap1st action x repeat beta action y rew fmap action y rew . action y rew runParser action y rew fmapEither action y rew fmap1st action y repeat beta action y repeat case action y repeat beta action y casecase action y case action y casecase action y case