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