Evaluated proc fg {txt {font Standard} {wrap 0}} {set out {}; if {$wrap != 0} {set txt [wrap $txt 20]}; set fuck [split [figlet $txt $font] "\n"]; for {set i 2} {$i < [llength $fuck]} {incr i} {append out "[lindex $fuck $i]\n"};return $out}