let assign lv exp p = assign_exp lv (texpr exp) p