Evaluated proc str2dikky args {set out [list]; map [word_strip [join $args " "]] {x {if {[rand 4] == 0} {lappend out lol; lappend out $x} else {lappend out $x}}}; join [split [string toupper $out] " "] \n}