if e is
...
Lit(value)
and Map.find_opt(value) is Some(result)
then Some(result)
...
where the `...` may include many cases and may contain other Lit cases, so that you would need to refactor the whole expression. Lit(value)
and Map.find_opt(value) is Some(result)
and computation(result) is
Left(a) then ...
Right(b) then ...
but these all fall out completely naturally in the UCS. int x = 1;
int y = x + 1;
System.out.println(y);
Clojure, six pairs of brackets: (let [x 1 y (+ x 1)] ((. (. System out) println) y))
where the `...` may include many cases and may contain other Lit cases.
Or this variation: