Comparative distribution of recipe lengths:

    foreach f ( bencao.Bencao vstars.Voynich )
      foreach type ( avg dif )
        cat ${f:r}.twct \
          | gawk \
              ' BEGIN { split("", htk); split("", hwd); maxk = 0; } \
                /./{ \
                  tk = $3; htk[tk]++; wd = $4; hwd[wd]++; \
                  if (tk > maxk) { maxk = tk; } \
                } \
                END{ \
                  for(k=0; k <= maxk; k++) \
                    { printf "%3d %5d %5d\n", k, htk[k], hwd[k]; } \
                } \
              ' \
          > ${f:r}-tk-wd.hist
      end
    end

    foreach fmt ( png )
      foreach type ( tk.2 wd.3 )
        plot-recipe-attr \
            -format ${fmt} \
            bencao-tk-wd.hist "Bencao  (${type:r})" ${type:e} 1 1.000 \
            vstars-tk-wd.hist "Voynich (${type:r})" ${type:e} 2 1.000 \
          > recipe-tk-counts-srt.${fmt}
      end
    end