uses crt;
var n,i,cnt,t,j,mark: integer;
    a: array[1..1000] of longint;
    exists: boolean;
begin
    assign(input, 'DAYSO.INP'); reset(input);
    assign(output, 'DAYSO.OUT'); rewrite(output);
    readln(n);
    cnt := 0;
    for i := 1 to n do
    begin
        read(t);
        exists := false;
        for j := 1 to cnt do
            if a[j] = t then
            begin
                exists := true;
                break;
            end;
        if not exists then
        begin
            inc(cnt);
            a[cnt] := t;
        end;
    end;
    mark := 0;
    writeln(cnt);
    for i := 1 to cnt do
    begin
        if mark = 15 then
        begin
            writeln();
            mark := 0;
        end;
        write(a[i], ' ');
        inc(mark);
    end;
end.