procedure Gnat.Spitbol.patterns.R is begin
Put_Line(S(Translate(V(Get_Line),To_Mapping("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ","nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM"))));R;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).