Problem: The problem uses a simplified TCP/IP address model, please read the statement carefully.

An IP address is a 32-bit integer, represented as a group of four decimal 8-bit integers (without leading zeroes), separated by commas. For example, record 0.255.1.123 shows a correct IP address and records 0.256.1.123 and 0.255.1.01 do not. In the given problem an arbitrary group of four 8-bit integers is a correct IP address.

Our hero Polycarpus still works as a system administrator in some large corporation. He likes beautiful IP addresses. To check if some IP address is beautiful, he should do the following:

  1. write out in a line four 8-bit numbers of the IP address, without the commas; 
  2. check if the resulting string is a palindrome. 



Let us remind you that a palindrome is a string that reads the same from right to left and from left to right.

For example, IP addresses 12.102.20.121 and 0.3.14.130 are beautiful (as strings "1210220121" and "0314130" are palindromes), and IP addresses 1.20.20.1 and 100.4.4.1 are not.

Polycarpus wants to find all beautiful IP addresses that have the given set of digits. Each digit from the set must occur in the IP address at least once. IP address must not contain any other digits. Help him to cope with this difficult task.

Input

The first line contains a single integer n (1 ≤ n ≤ 10) — the number of digits in the set. The second line contains the set of integers a1, a2, ..., an (0 ≤ ai ≤ 9). It is guaranteed that all digits in the set are distinct.

Output

In the first line print a single integer k — the number of beautiful IP addresses that contain the given set of digits. In the following k lines print the IP addresses, one per line in the arbitrary order.

Examples

Input

6
0 1 2 9 8 7


Output

6
78.190.209.187
79.180.208.197
87.190.209.178
89.170.207.198
97.180.208.179
98.170.207.189


Input

1
4


Output

16
4.4.4.4
4.4.4.44
4.4.44.4
4.4.44.44
4.44.4.4
4.44.4.44
4.44.44.4
4.44.44.44
44.4.4.4
44.4.4.44
44.4.44.4
44.4.44.44
44.44.4.4
44.44.4.44
44.44.44.4
44.44.44.44

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
long long fpm(long long b, long long e, long long m) {
  long long t = 1;
  for (; e; e >>= 1, b = b * b % m) e & 1 ? t = t * b % m : 0;
  return t;
}
template <class T>
inline bool chkmin(T &a, T b) {
  return a > b ? a = b, true : false;
}
template <class T>
inline bool chkmax(T &a, T b) {
  return a < b ? a = b, true : false;
}
template <class T>
inline T sqr(T x) {
  return x * x;
}
template <typename T>
T gcd(T x, T y) {
  for (T t; x; t = x, x = y % x, y = t)
    ;
  return y;
}
template <class edge>
struct Graph {
  vector<vector<edge> > adj;
  Graph(int n) {
    adj.clear();
    adj.resize(n + 5);
  }
  Graph() { adj.clear(); }
  void resize(int n) { adj.resize(n + 5); }
  void add(int s, edge e) { adj[s].push_back(e); }
  void del(int s, edge e) { adj[s].erase(find(iter(adj[s]), e)); }
  vector<edge> &operator[](int t) { return adj[t]; }
};
int y[50], x[50], o[50];
char s[50];
int top, n;
vector<string> vec;
bool ck(int l, int r) {
  if (r - l > 3) return false;
  int v = 0;
  for (int _end_ = (r), i = (l + 1); i <= _end_; ++i) v = v * 10 + y[i];
  if (v > 255) return false;
  if (v != 0 && y[l + 1] == 0) return false;
  if (v == 0 && r - l != 1) return false;
  return true;
}
void dfs2(int d, int t, int c, int lx) {
  s[top++] = y[d] + '0';
  if (d == t) {
    if (c == 3 && ck(lx, t)) s[top] = '\0', vec.push_back(s);
    --top;
    return;
  }
  dfs2(d + 1, t, c, lx);
  if (c != 3 && ck(lx, d)) {
    s[top++] = '.';
    dfs2(d + 1, t, c + 1, d);
    --top;
  }
  --top;
}
void check(bool b, int d) {
  int t = d - b;
  for (int _end_ = (1), i = (d); i >= _end_; --i) y[++t] = y[i];
  dfs2(1, t, 0, 0);
}
void dfs(int d, int w) {
  if (y[1] == 7 && y[2] == 8 && y[3] == 1 && y[4] == 9 && y[5] == 0 && d == 7)
    top = 0;
  if (w == 0 && d >= 2) check(0, d - 1);
  if (w == 0 && d >= 3) check(1, d - 1);
  if (d == 7) return;
  for (int _end_ = (n), i = (1); i <= _end_; ++i) {
    y[d] = x[i];
    ++o[i];
    dfs(d + 1, w - (o[i] == 1));
    --o[i];
  }
}
int main(int argc, char **argv) {
  ios_base::sync_with_stdio(false);
  cin >> n;
  for (int _end_ = (n), i = (1); i <= _end_; ++i) {
    cin >> x[i];
  }
  dfs(1, n);
  cout << (int)((vec).size()) << endl;
  for (auto &s : vec) cout << s << endl;
  return 0;
}