+ if {[info exist URL($url,title)]} {
+ foreach m $URL($url,title) {
+ puts $m
+ }
+ }
+ foreach v [array names URL $url,head,*] {
+ puts "$v = $URL($v)"
+ }
+ puts "Buffer length is [string length $URL($url,buf)]"
+ set f [open out.pdf w]
+ puts -nonewline $f $URL($url,buf)
+ close $f