gistfile1.d

import std.stdio, std.string;

void main()
{
  uint[string] freqs;

  foreach(line; stdin.byLine())
  {
    foreach(word; split(strip(line)))
    {
      ++freqs[word.idup];
    }
  }
  sort! ((a, b) { return freqs[a] > freqs[b]; }) (words) ;
  foreach(key, value; freqs)
  {
      writefln("%6u\t%s", value, key);
  }
}