program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n, i, j, k: integer;
  s: string;
  c: char;
  a: array[1..200010]of string;
  q: Boolean;

begin
  readln(n);
  for i := 1 to n do begin
    readln(s);
    for j := 2 to Length(s) do
      for k := Length(s) downto j do
        if(s[k - 1] > s[k])then begin
          c := s[k - 1];
          s[k - 1] := s[k];
          s[k] := c;
        end;
    if(length(a[i - 1]) < Length(s))then begin
      for j := 1 to Length(a[i - 1]) do begin
        if(a[i - 1][j] <> s[j])then begin
          q := True;
          for k := Length(s) downto j + 1 do
            if(s[k] = a[i - 1][j])then begin
              c := s[j];
              s[j] := s[k];
              s[k] := c;
              q := False;
            end;
          if(q)then begin
            Writeln(-1);
            exit;
          end;
        end;
      end;
    end;
    a[i] := s;
  end;
  q := false;
  for i := 2 to n do
    if(a[i - 1] > a[i])and(Length(a[i]) = Length(a[i - 1]))then begin
      Writeln(-1);
      q := True;
      Break;
    end;
  if(not q)then
    for i := 1 to n do
      writeln(a[i]);
  readln;
  Readln;
end.