[when chopping statistics, maintain proper counts
John Meacham <john@repetae.net>**20061125024852] hunk ./Stats.hs 159
-    let fs = createForest 0 $ sort [(splitUp n $ fromAtom x,y) | (x,y) <- Map.toList s]
+    let fs = createForest 0 $ Map.toList $ Map.fromListWith (+) [(splitUp n $ fromAtom x,y) | (x,y) <- Map.toList s]