# HG changeset patch
# User HackBot
# Date 1370114965 0
# Node ID c97aaefa412b05bd4c0058dc5dbed0aa2db227d7
# Parent  85305bc810af53eb78d0ccfd5ecfe70e685b0fef
<oerjan> fetch http://oerjan.nvg.org/test.hs

diff -r 85305bc810af -r c97aaefa412b test.hs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test.hs	Sat Jun 01 19:29:25 2013 +0000
@@ -0,0 +1,2 @@
+import Data.List (sort)
+main = mapM_ putStrLn . map (\s -> head s ++ " occurs->" ++ show (length s)) . group . sort . catMaybes . map (stripPrefix "username:" . (!!2) . words) . lines =<< getContents