procedure Gnat.Spitbol.Patterns.S is A:String:=Get_line;C:Vstring;begin for I in A'Range loop if A(1)>A(i)then Put(A(i));elsif A(1)=A(I)then C:=A(i)&C;else C:=C&A(i);end if;end loop;Put(S(C));end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).