procedure Gnat.Spitbol.patterns.R is begin
Put_Line(S(Translate(V(Get_Line),To_Mapping("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ","nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM"))));R;end;