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