Posted to tcl by anto at Tue Jul 15 20:39:05 GMT 2008view raw

  1. #!/usr/bin/tclsh
  2.  
  3. puts [string map {a ɐ
  4. b q
  5. c ɔ
  6. d p
  7. e ǝ
  8. f ɟ
  9. g ɓ
  10. h ɥ
  11. i ı̣
  12. j ɾ
  13. k ʞ
  14. l լ
  15. m ɯ
  16. n u
  17. p d
  18. q b
  19. r ɹ
  20. t ʇ
  21. u n
  22. v ʌ
  23. w ʍ
  24. y ʎ
  25. ' ,
  26. , '
  27. . ˙
  28. ? ¿
  29. } [string reverse [join $argv " "]]]