Control.Alternative.Free.Final

data Alt f a

runAlt

liftAlt

hoistAlt