{ 
  #gsub(/[^a-zA-Z ]/,"")
  for (i=1; i<=length($0); i++) c[substr($0,i,2)]++
}
END {
  for (i in c) print c[i],i | "sort -nr"
}