data Choose : Type -> Typeempty : Has Choose fs => Eff fs aalt : Has Choose fs => Eff fs a -> Eff fs a -> Eff fs aguard : Has Choose fs => Bool -> Eff fs ()runChoose : Alternative f => {auto {conArg:1982} : Has Choose fs} -> Eff fs a -> Eff (fs - Choose) (f a)