#! /usr/bin/gawk -f
# Last edited on 2000-06-14 00:50:20 by stolfi

BEGIN {
  split("", ctx);
  split("", cty);
  split("", cto);
  split("", ctxoy);
}

/./ {
  w=("|" $3 "|");
  gsub(/eeeeee/, "EEE",w);
  gsub(/eeeee/, "eEE",w);
  gsub(/eeee/, "EE",w);
  gsub(/eee/, "eE",w);
  gsub(/ee/, "E",w);
  gsub(/[cs]h/, "C",w); gsub(/[dlrsx]/, "R",w);
  gsub(/[ic][kt]h/, "K",w); gsub(/[ic][fp]h/, "F",w);
  gsub(/[kt]/, "k",w); gsub(/[fp]/, "f",w);
  n = length(w);
  for (i=1; i<n-1; i++)
    { t = substr(w,i,3);
      if (t ~ /.[aoy]./)
        { x = substr(t,1,1); o = substr(t,2,1); y = substr(t,3,1);
          ctxoy[x,o,y] += $1; cto[o] += $1; 
          ctxy[x,y] += $1; ctx[x] += $1; cty[y] += $1;
        }
    }
  for (i=1; i<n; i++)
    { t = substr(w,i,2);
      if (t !~ /[aoy]/)
        { x = substr(t,1,1); o = "."; y = substr(t,2,1);
          ctxoy[x,o,y] += $1; cto[o] += $1;
          ctxy[x,y] += $1; ctx[x] += $1; cty[y] += $1;
        }
    }
}

END {
  for(x in ctx)
    for(y in cty)
      { if (ctxy[x,y] > 0) 
          { kx = (x ~ /[ktpfKTPF]/); ky = (y ~ /[ktpfKTPF]/);
            mx = (x ~ /[CSEe]/); my = (y ~ /[CSEe]/); 
            printf "%d%d%d%d %7d", kx,ky,mx,my, ctxy[x,y];
            for(i=1; i<=4; i++)
              { o = substr(".aoy",i,1); 
                v = ctxoy[x,o,y]; s = ("__" x o y "__");
                gsub(/__K/, "ckh", s); gsub(/K__/, "ckh", s);
                gsub(/__F/, "cfh", s); gsub(/F__/, "cfh", s);
                gsub(/__C/, "_ch", s); gsub(/C__/, "ch_", s);
                gsub(/__E/, "_ee", s); gsub(/E__/, "ee_", s);
                printf " %5d %6.4f %s", v, v/ctxy[x,y], s;
              }
            printf "\n";
          }
      }
}