Control.Alternative.Free

data Alt f a

data AltF f a

runAlt

liftAlt

hoistAlt