let infixl pp op fmt al =
  match !flag with
    | Sexpr -> 
        sexpr pp fmt (op, al)
    | _ -> 
        break := false;
        list ("", op, "") pp fmt al;
        break := true