or download this
perl -we 'use Date::Manip; while(<>) { /^([^\t]*)\t([^\t]*)\t([^\t]*)$
+/ or die "fmt <<$_>>"; ($ns, $gs, $as) = ($1, $2, $3); $gs =~ /^\w+\s
++(.+)\s+\w+\s*$/ or die "madat $gs"; $d = ParseDate($1) or die "parsd
+at $2"; push @l, [sprintf("%-30s %-20s %s", $gs, $ns, $as), $d]; } pr
+int map {$$_[0]} sort {Date_Cmp($$a[1], $$b[1])} @l;' < guesses > gue
+sses.sort