const n = 5;

var a : array[1..n + 1] of string;
    s : string;
    i, index : integer;

begin
    for i := 1 to n do
        readln(a[i]);
    readln(s);
    index := 0;
    for i := 1 to n do begin
        if a[i] > s then begin
            index := i;
            break;
        end;
    end;
    if index = 0 then
        index := n + 1;
    for i := n downto index do
        a[i + 1] := a[i];
    a[index] := s;
    for i := 1 to n + 1 do
        writeln(a[i]);
end.