- Format.fprintf fmt "%s"
- (if n == nil then "<NIL>" else
- if n == dummy then "<DUMMY>" else
- "<NODE " ^ string_of_int n.preorder ^ ">")
+ Format.fprintf fmt "<%s>"
+ (if n == nil then "NIL" else
+ if n == dummy then "DUMMY" else
+ "NODE " ^ string_of_int n.preorder)