Evaluated proc choose args {return [lindex $args [randbetween 0 [expr [llength $args] - 1]]]}
Evaluated proc ST:fox {} {choose "     |\\/|    ____\n  .__.. \\   /\\  /\n   \\_   /__/  \\/ \n   _/  __   __/  \n  /___/____/ " "              /^._\n,___,--~~~~--' /'~\n`~--~\ )___,)/'   \n    (/\\_  (/\\_  \n"}