let
translate_mexpr e =
let
v, i = translate_mexpr e
in
v, enclose_parallel i