I have actually used the json-procs.tcl recently to generate JSON, and once you get them working they are good, but I found them a little unintuitive at first.
saluti Brian