Code created while I was working through the book "Beginning Haskell: A Project-Based Approach"