Evaluated proc wiki2 args { set name [join $args " "]; if {[catch "wikipic $name $::wikipicsize2" pic] == 1} { wiki_ $name } { set words [wrap [wiki_ $name] 50]; . .. wget [paste [embed [widen $pic 60][string repeat "\n[string repeat { } [+ 5 $::wikipicsize2]]" [- [nlines $words] [nlines $pic]]] $words [+ $::wikipicsize2 5] 1]] } }