output.tcl: add proc pdict
more YAML scratch... need to write a range generator