Posted to tcl by kotrcka at Fri Dec 25 14:45:31 GMT 2020view raw

  1. if {$argc == 0} {
  2. puts "Name maybe?"
  3. set yourname [gets stdin]
  4. } else {
  5. set yourname $argv
  6. }
  7. foreach a [list 72 97 112 112 121 \
  8. 32 78 101 119 32 89 101 97 \
  9. 114 32 32 50 32 48 32 50 \
  10. 32 49 32 32 116 111 32] {
  11. after 300
  12. puts -nonewline [ format "%c" $a ]
  13. flush stdout
  14. }
  15. set characters [split $yourname ""]
  16. foreach x $characters {
  17. after 300
  18. puts -nonewline $x
  19. flush stdout
  20. }
  21. puts "\n"