program vd;

uses crt;

var s,st:array[1..100] of string;

    s1,s2 : string;

    i,j,n,z,x,v,dem,k,q : integer;

    a :array[1..225] of integer;

    ok : boolean;

begin

readln(n);

for i:=1 to n do readln(s[i]);

ok := false; v:=1;  q:=1;

for i:=1 to n do

  begin

   ok := false;

   dem := 0;

   for z:=1 to v-1 do a[z] :=0;

   v:=1;

   s1:= s[i];

   for j := 1 to length(s1) do

    begin

     for x:= j+1 to length(s1) do

     if s1[j] = s1[x] then

       begin

        a[v] := x;

        for z := 1 to v-1 do

        if (j = a[z]) or (j < a[z]) then  ok := true;

        if ok = true then break;

        if ok = false then inc(dem);

        inc(v);

       end;

     if ok = true then break;

    end;

    if (ok=false) and ( length(s1) div 2 = dem) then

       begin

         st[q] := s1;

         inc(q);

       end;

  end;

writeln(q-1);

for i:=1 to q-1 do writeln(st[i]);

end.

#include <bits/stdc++.h>
#define ll long long
using namespace std;
ll t, n, y;
vector<string> v;
string s;
int main()
{
    ios::sync_with_stdio(0);
    cin.tie(0);
    cout.tie(0);
    cin >> n;
    y = n;
    for (ll i = 1; i <= n; i++)
    {
        cin >> s;
        t = s.length();
        if (t % 2 == 0)
        {
            v.push_back(s);
            for (ll k = 1; k <= t / 2; k++)
            {
                for (ll i = 0; i <= s.length() - 2; i++)
                {
                    if (s[i] == s[i + 1])
                    {
                        s.erase(i, 2);
                        break;
                    }
                }
            }
            if (!s.empty())
            {
                y--;
                v.pop_back();
            }
        }
    }
    cout << y << endl;
    for (auto it : v)
    {
        cout << it << endl;
    }
}