eff : forall a b . (a -> b) -> b -> Effect Abort a -> b
eff f z e = case e of
  { Abort.Abort _ -> k } -> z
  { a } -> f a

ability Abort where
  Abort : forall a . () -> {Abort} a