https://softwarepatternslexicon.com/haskell/applying-multiple-patterns/