Correction: I think the above can be a bit faster and shorter if we skip the dict, and just index into the keys. Compare:

     \t:100000 `freq@!s#>(s/!s*#v)!,/v%\.5+!s
    941
     \t:100000 `freq(s/!s*#v)s#>,/v%\.5+!s
    901