let apply qq fmt (f, al) =
  match !flag with
    | Sexpr -> sexpr qq fmt (f, al)
    | _ -> (fprintf fmt "%s" f; args qq fmt al)