Should be operating at acceptable speed/memusage rates now

1 files changed, 4 insertions, 2 deletions

diff --git a/src/main.hs b/src/main.hs
index 6e95f2a..c3db4ad 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -67,7 +67,9 @@ main = do
     args <- Env.getArgs
     counter <- Sen.createSenateCounter (head args) above below
     let testTraces = (map (:[]) (zip [1,1..] below))
-        results = map (\x -> putStrLn . (((snd . head $ x) ++ " ") ++) . show . (Sen.doCount counter) $ x) testTraces
-    sequence_ results
+    results <- mapM (Sen.doCount counter) testTraces
+    let func (n,c) = putStrLn (c ++ " " ++ (show n))
+        output = map func (zip results below)
+    sequence_ output