Posted to tcl by anto at Tue Jul 15 20:39:05 GMT 2008view pretty
#!/usr/bin/tclsh puts [string map {a ɐ b q c ɔ d p e ǝ f ɟ g ɓ h ɥ i ı̣ j ɾ k ʞ l լ m ɯ n u p d q b r ɹ t ʇ u n v ʌ w ʍ y ʎ ' , , ' . ˙ ? ¿ } [string reverse [join $argv " "]]]
#!/usr/bin/tclsh puts [string map {a ɐ b q c ɔ d p e ǝ f ɟ g ɓ h ɥ i ı̣ j ɾ k ʞ l լ m ɯ n u p d q b r ɹ t ʇ u n v ʌ w ʍ y ʎ ' , , ' . ˙ ? ¿ } [string reverse [join $argv " "]]]