WordsThatAreNeverFollowedBy.hs

import Data.List.NonEmpty

newtype WordsThatAreNeverFollowedBy =
  WordsThatAreNeverFollowedBy
    [(String, [NonEmpty String])]
  deriving (Eq, Ord, Show)

never =
  WordsThatAreNeverFollowedBy
    [
      (
        "your"
      , [
          pure "going"
        , pure "having"
        ]
      )
    , (
        "would"
      , [
          pure "of"
        ]
      )
    , (
        "should"
      , [
          pure "of"
        ]
      )
    , (
        "could"
      , [
          pure "of"
        ]
      )
    ]

your going away party is cancelled until further notice