disable some of the more annoying debug output

src/modules/punk/ns-999999.0a1.0.tm

@@ -3358,7 +3358,7 @@ tcl::namespace::eval punk::ns {
                 if {[string match (autodef)* $origin]} {
                     set origin [string range $origin 9 end]
                 }
-                puts "->$final neworigin: $origin consumed:$consumed remaining:$remainingargs docid:$docid"
+                #puts "->$final neworigin: $origin consumed:$consumed remaining:$remainingargs docid:$docid"
                 lappend stack [list $origin {*}$consumed]
                 lappend commands $origin
                 lappend consumed_args {*}$consumed
@@ -3776,7 +3776,7 @@ tcl::namespace::eval punk::ns {
                             #incr i [expr {-1 * [llength $resolvedargs]+1}]  ;#wrong e.g test trace add execution blah enterstep cmd
                             #JJJ
 
-                            puts stderr "... yield-result $origin i:$i args: $args"
+                            #puts stderr "... yield-result $origin i:$i args: $args"
                             ledit args $i+1 $i {*}$eparams
                             set eparams [list]
 
@@ -3804,7 +3804,7 @@ tcl::namespace::eval punk::ns {
                     } ;#end loop foreach q $queryargs lname $leadernames_matched
                 } else {
                     #??
-                    puts stderr "cmdinfo.cmd_traverse returning 8 origin: $origin resolved: $resolvedargs remaining: [lrange $args $i end] docid: $docid"
+                    #puts stderr "cmdinfo.cmd_traverse returning 8 origin: $origin resolved: $resolvedargs remaining: [lrange $args $i end] docid: $docid"
                     return [list 8 $origin $resolvedargs [lrange $args $i end] $docid]
                 }
             } else {