problem

Cryptography is all the rage at xryuseix's school. Xryuseix, who lives in a grid of cities, has come up with a new cryptography to decide where to meet.

The ciphertext consists of the $ N $ character string $ S $, and the $ S_i $ character determines the direction of movement from the current location. The direction of movement is as follows.


* A ~ M: Go north one square.
* N ~ Z: Go south one square.
* a ~ m: Go east one square.
* n ~ z: Go west one square.



By the way, xryuseix wanted to tell yryuseiy-chan where to meet for a date with a ciphertext, but he noticed that the ciphertext was redundant.

For example, suppose you have the ciphertext "ANA". It goes north by $ 1 $, south by $ 1 $, and then north by $ 1 $. This is equivalent to the ciphertext that goes north by $ 1 $. , "ANA" = "A", which can be simplified. Xryuseix wanted to simplify the ciphertext so that yryuseiy would not make a detour.

So you decided to write a program to simplify the ciphertext instead of xryuseix. Note that "simplify the ciphertext" means "the shortest ciphertext that goes to the same destination as the original ciphertext." To make. "



output

The length of the ciphertext after simplification on the $ 1 $ line, output the ciphertext on the $ 2 $ line. If there are multiple possible ciphertexts as an answer, any of them may be output. Also, each line Output a line break at the end of.

Example

Input

5
ANazA


Output

1
A
#include <bits/stdc++.h>
#define GET_MACRO(_1,_2,_3,_4,_5,_6,_7,_8,NAME,...) NAME
#define pr(...) cerr<< GET_MACRO(__VA_ARGS__,pr8,pr7,pr6,pr5,pr4,pr3,pr2,pr1)(__VA_ARGS__) <<endl
#define pr1(a) (#a)<<"="<<(a)<<" "
#define pr2(a,b) pr1(a)<<pr1(b)
#define pr3(a,b,c) pr1(a)<<pr2(b,c)
#define pr4(a,b,c,d) pr1(a)<<pr3(b,c,d)
#define pr5(a,b,c,d,e) pr1(a)<<pr4(b,c,d,e)
#define pr6(a,b,c,d,e,f) pr1(a)<<pr5(b,c,d,e,f)
#define pr7(a,b,c,d,e,f,g) pr1(a)<<pr6(b,c,d,e,f,g)
#define pr8(a,b,c,d,e,f,g,h) pr1(a)<<pr7(b,c,d,e,f,g,h)
#define prArr(a) {cerr<<(#a)<<"={";int i=0;for(auto t:(a))cerr<<(i++?", ":"")<<t;cerr<<"}"<<endl;}
using namespace std;
using Int = long long;
using _int = int;
using ll = long long;
using Double = long double;
const Int INF = (1LL<<60)+1e9; // ~ 1.15 * 1e18
const Int mod = (1e9)+7;
const Double EPS = 1e-8;
const Double PI = 6.0 * asin((Double)0.5);
using P = pair<Int,Int>;
template<class T> T Max(T &a,T b){return a=max(a,b);}
template<class T> T Min(T &a,T b){return a=min(a,b);}
template<class T1, class T2> ostream& operator<<(ostream& o,pair<T1,T2> p){return o<<"("<<p.first<<","<<p.second<<")";}
template<class T1, class T2, class T3> ostream& operator<<(ostream& o,tuple<T1,T2,T3> t){
  return o<<"("<<get<0>(t)<<","<<get<1>(t)<<","<<get<2>(t)<<")";}
template<class T1, class T2> istream& operator>>(istream& i,pair<T1,T2> &p){return i>>p.first>>p.second;}
template<class T> ostream& operator<<(ostream& o,vector<T> a){Int i=0;for(T t:a)o<<(i++?" ":"")<<t;return o;}
template<class T> istream& operator>>(istream& i,vector<T> &a){for(T &t:a)i>>t;return i;}
//INSERT ABOVE HERE


signed main(){
  srand((unsigned)time(NULL));
  cin.tie(0);
  ios_base::sync_with_stdio(0);
  cout << fixed << setprecision(12);

  Int N;
  string S;
  cin>>N>>S;

  Int x = 0, y = 0;
  for(Int i=0;i<N;i++){
    char ch = S[i];
    if('A' <= ch && ch <= 'M') y++;
    if('N' <= ch && ch <= 'Z') y--;
    if('a' <= ch && ch <= 'm') x++;
    if('n' <= ch && ch <= 'z') x--;
  }

  string ans;
  if(y > 0) ans += string(y, 'A');
  if(y < 0) ans += string(-y, 'N');
  if(x > 0) ans += string(x, 'a');
  if(x < 0) ans += string(-x, 'n');

  cout<<ans.size()<<endl;
  cout<<ans<<endl;

  return 0;
}

