var
  ars: array[1..10]of string;
  i, n, j: integer;
begin
  n := 10;
  for i := 1 to 10 do 
  begin
    readln(ars[i]);
  end;
  for i := n downto 1 do
    if ((ars[i][length(ars[i])] = '2') or (ars[i][length(ars[i]) - 8] = '2') or
    (ars[i][length(ars[i]) - 4] = '2') or (ars[i][length(ars[i]) - 6] = '2') or
    (ars[i][length(ars[i]) - 2] = '2'))
    then 
    begin
      for j := i to n do
        ars[i] := ars[i + 1];
      dec(n);
    end;
  writeln;
  for i := 1 to n do
    writeln(ars[i]);
end.