Evaluated proc opersay2 args {set wrappedtext [wrap [. <@kloeri> [strip_all [join $args " "]]] 50]; set canvas [embed [canvas 50 [expr 30+[nlines $wrappedtext]]] [strcrop [jpeg  https://pbs.twimg.com/profile_images/457377520795394048/MEhEiXRL.jpeg 50] 0 29] 1 1]; embed $canvas [embed [cblock 01,00 50 [nlines $wrappedtext]] [. $wrappedtext] 1 1] 1 31;}