#include <iostream>
#include <fstream>
#include <string>
#include <algorithm>
#include <set>
#include <vector>
using namespace std;

void gen_set(string s,set<string> &d)
{
  d.clear();

  // delete
  for (int i=0;i<s.length();i++){
    string tmp;
    for (int j=0;j<s.length();j++)
      if (i!=j) tmp+=s[j];
    d.insert(tmp);
  }

  // insert
  for (int i=0;i<=s.length();i++){
    for (char c='a';c<='z';c++){
      string tmp;
      for (int j=0;j<s.length();j++){
	if (i==j) tmp+=c;
	tmp+=s[j];
      }
      if (i==s.length()) tmp+=c;
      d.insert(tmp);
    }
  }

  // replace
  for (int i=0;i<s.length();i++){
    for (char c='a';c<='z';c++){
      string tmp=s;
      tmp[i]=c;
      d.insert(tmp);
    }
  }

  // swap
  for (int i=0;i<s.length()-1;i++){
    string tmp=s;
    swap(tmp[i],tmp[i+1]);
    d.insert(tmp);
  }

  d.insert(s);
}

bool inters(set<string> &s1,set<string> &s2)
{
  set<string>::iterator p,q;
  p=s1.begin();
  q=s2.begin();
  while((p!=s1.end())&&(q!=s2.end())){
    if (*p==*q) return true;
    if (*p<*q) p++;
    else q++;
  }
  return false;
}

int main()
{
  ifstream cin("E.txt");

  int n,d;
  while(cin>>n>>d,n!=0){
    vector<string> dat(n);
    for (int i=0;i<n;i++)
      cin>>dat[i];
    sort(dat.begin(),dat.end());

    vector<set<string> > sets(n);
    if (d!=0)
      for (int i=0;i<n;i++)
	gen_set(dat[i],sets[i]);

    int cnt=0;
    for (int i=0;i<n-1;i++){
      for (int j=i+1;j<n;j++){
	bool flg;
	if (d==0)
	  flg=dat[i]==dat[j];
	else if (d==1){
	  flg=((sets[i].count(dat[j])!=0)||
	       (sets[j].count(dat[i])!=0));
	}
	else{
	  flg=inters(sets[i],sets[j]);
	}
	
	if (flg){
	  cout<<dat[i]<<","<<dat[j]<<endl;
	  cnt++;
	}
      }
    }
    cout<<cnt<<endl;
  }

  return 0;
}