#!/home/craigd/Bin/zkl fcn rot13(text){ text.translate("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", "nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM"); } text:=(vm.arglist or File.stdin); // command line or pipe text.pump(File.stdout,rot13); // rotate each word and print it if(text.isType(List)) File.stdout.writeln(); // command line gets ending newline