Another Silly programming puzzle....

[Roger Crew]

In article <1751 at aucs.UUCP> 850347s at aucs.UUCP (Hume Smith) writes:
>In <850347s at aucs.UUCP> (Hume Smith) almost, but not quite, wrote
>> exactly why i hate pascal - a hundred lines of illegibility instead of the
>> 2 or 3 you'd have in C.
> 
> read that carefully, i do mean the 2 or 3 lines of illegibilty :-)

Three lines of illegibility?  No problem...

main(){
  register b;
  while(~(b=getchar()))
    putchar(1+(('@'^--b&'_')<26?b^="\r\017\r\023\025\027\025\023\035\037\035\023\025"[b%32%13]:b));
}

--
Roger Crew					``Beam Wesley into the sun!''
Usenet:    {arpa gateways, decwrl, uunet, rutgers}!polya.stanford.edu!crew
Internet:  crew at polya.Stanford.EDU