Control.Monad.Freer.Cut
data
CutFalse
cutFalse