Control.Alternative.Free
data
Alt
f a
data
AltF
f a
runAlt
liftAlt
hoistAlt