#include <cstdio>

 #include <cstring>

 #include <cstdlib>

 #include <cmath>

 #include <algorithm>

 #include <cctype>

 #include <iostream>

 #define For(i, l, r) for(int i = (l); i <= (int)(r); ++i)

 #define Fordown(i, r, l) for(int i = (r); i >= (int)(l); --i)

 #define Set(a, v) memset(a, v, sizeof(a))

 using namespace std;

 inline int read(){

   int x = , fh = ; char ch;

   for(; !isdigit(ch); ch = getchar()) if (ch == '-') fh = -;

   for(; isdigit(ch); ch = getchar()) x = (x<<) + (x<<) + (ch^'');

   return x * fh;

 }

 const int N = ;

 const int score[]={, , , , , , , , , , , , , , , , , , , , , , , , , };

 //当然要把这个表打出来了。。但我太懒了。。copy了一下redbag大神的。。 

 struct node {

     char str[];

     int dig[]; //存储了每个单词出现的次数 

     void update () {

         int n = strlen(str);

         Set(dig, );

         For (i, , n-)

             dig[str[i] - 'a'] ++;

     } //更新每个字符出现的次数 

     int calc () {

         int ans = ;

         For (i, , )

             ans += dig[i] * score[i];

         return ans;

     } //计算这个单词的得分 

     bool operator > (const node &rhs) const {

         For (i, , )

             if (dig[i] > rhs.dig[i]) return true;

         return false;

     } //比较单词每个字母出现次数多少 如果多的话 则不满足题目要求 

     node operator + (const node &rhs) const {

         node ans;

         Set(ans.dig, );

         For (i, , )

             ans.dig[i] = dig[i] + rhs.dig[i];

         return ans;

     } //把两个单词出现次数加起来

 };

 node standard, word[N];

 int cnt = ;

 struct ans_pair {

     int word1, word2; //答案的词对 如果只有一个单词则第二个为0 这个存储的是单词的编号

 };

 #include <vector>

 vector <ans_pair> lt; //听说 不定长数组 和 答案序列 更配哦 (滑稽) 

 int ans_num = ;

 int main(){

     scanf ("%s", standard.str);

     standard.update(); //把初始的标准更新

     while (scanf ("%s", word[cnt].str) != EOF && word[cnt].str[] != '.') {

         word[cnt].update();

         if (word[cnt] > standard) continue; //如果不满足要求就不能存储 让下一个输入的覆盖掉

         ++cnt;

     }

     --cnt; //去掉最后一个'.'

     For (i, , cnt)  {

         int now_score = ; //当前成绩

         now_score = word[i].calc();

         if (now_score > ans_num)

         {ans_num = now_score; lt.clear(); lt.push_back((ans_pair) {i, } );} //比原来答案大 就更新一下

         else if (now_score == ans_num) lt.push_back((ans_pair) {i, } ); //相同就放入vector 

         For (j, i+, cnt) {

             node new_word = word[i] + word[j]; //计算合并后单词的dig

             if (new_word > standard ) continue; //不满足要求就继续找

             now_score = new_word.calc(); //计算成绩

             if (now_score > ans_num)  //同上

             {ans_num = now_score; lt.clear(); lt.push_back((ans_pair) {i, j} );}

             else if (now_score == ans_num) lt.push_back((ans_pair) {i, j} );

         }

     }

     printf ("%d\n", ans_num);

     For (i, , lt.size()-) {

         int fir = lt[i].word1, sec = lt[i].word2; //first 第一个单词 second 第二个单词

         if (sec) printf ("%s %s\n", word[fir].str, word[sec].str);

          else printf ("%s\n", word[fir].str); //如果只有一个单词 输出第一个单词就好了

     }

 }