switched to using foldl (which helped slightly) then foldl' (which made things worse)