[make demo run as a demo
Evan Martin <martine@danga.com>**20060313120221] {
hunk ./Demo.hs 32
-test :: IO ()
-test = do
+main :: IO ()
+main = do
hunk ./Demo.hs 37
-      putStrLn $ "parsed " ++ (show (length ballots)) ++ " ballots."
+      putStrLn $ "Parsed " ++ (show (length ballots)) ++ " ballots:"
+      mapM_ print ballots
+      putStrLn "Computing winners..."
hunk ./Demo.hs 41
-      putStrLn "winners:"
+      putStrLn "Winners:"
}