From Newsgroup: comp.lang.lisp

Fred Gilham wrote:

I am new to lisp...don't mock me, that is insulting and rude.

The thin-skinned don't last long in this group. Here's a
representative quotation from an old Lisp user who will remain
anonymous unless he specifically requests to be named:

I can see you're going to do just *fine* here in comp.lang.lisp.
I'm rather looking forward to the ritual disembowelling, in
particular, although the bit were we chop your arms and legs off
and feed them to crocodiles is also good.

Gauche Scheme

(use srfi-13) ;; string-handling functions

(define (rot13 text)
(let ((text (string-upcase text))
(upper "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
(string-map
(lambda (c)
(let ((p (string-index upper c)))
(if p
(string-ref upper (mod (+ 13 p) 26))
c)))
text)))

(rot13 "NER NYY PY QVFPVCYRF CFLPUBCNGUF?")
===>
"ARE ALL CL DISCIPLES PSYCHOPATHS?"
--- Synchronet 3.21d-Linux NewsLink 1.2