program L1;

var

i,j,k,l,m,n,code:integer;

st:string;

b:array[1..1000] of string;

procedure make(st:string);

var

i,j,k,l,m,n:integer;

a:array[1..1000] of longint;

ch:char;

x,y,z:longint;

function check(s,m:longint):boolean;

var

i,j:integer;

begin

check:=false;

for i:=1 to m-1 do

if s=a[i] then

begin

check:=true;

for j:=i to m-1 do write(a[j],' ');

writeln;

end;

end;

begin

fillchar(a,sizeof(a),0);

z:=1000;l:=length(st);m:=0;

while not check(z,m) do

begin

n:=length(st);

for i:=1 to n-1 do

for j:=i+1 to n do

if st[i]