Evaluated proc weevsay args {set wrappedtext [wrap [. <!rabite> [strip_all [join $args " "]]] 35]; set canvas [embed [canvas 35 [expr 40+[nlines $wrappedtext]]] [strcrop [ascii weevhang] 0 40] 1 1]; embed $canvas [embed [cblock 01,09 34 [nlines $wrappedtext]] [. $wrappedtext] 1 1] 1 41;}