Posted to tcl by kotrcka at Fri Dec 25 14:45:31 GMT 2020view pretty
if {$argc == 0} { puts "Name maybe?" set yourname [gets stdin] } else { set yourname $argv } foreach a [list 72 97 112 112 121 \ 32 78 101 119 32 89 101 97 \ 114 32 32 50 32 48 32 50 \ 32 49 32 32 116 111 32] { after 300 puts -nonewline [ format "%c" $a ] flush stdout } set characters [split $yourname ""] foreach x $characters { after 300 puts -nonewline $x flush stdout } puts "\n"