var s:array [1..100] of char;
    c:char;
    a:array [1..3,1..3,1..3]{,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3,1..3]} of char;
begin
assign (f,'abc2.in');
assign (g,'abc2.out');
reset (f);
rewrite (g);
i:=0;
while not eoln(f) do
begin
i:=i+1;
read(f,c);
s[i]:=c;
end;
readln (f);
while not eof(f) do
begin
     while not eoln (f) do
     begin

     end;
end;
close(f);
close(g);
end.