https://devhubby.com/thread/how-to-sum-first-elements-from-lists-in-haskell