let set pp fmt al = 
  match !flag with
    | Sexpr -> sexpr pp fmt (":set", al)
    | _ -> 
        list ("{", ", ", "}") pp fmt al