5EHCW5VT5CEA2VNAZ6RX6OBKKRKGJEFMT2FFEHV5QQWBX2UW4AOAC
7P3WY2CHMA5QFOYGENWGIIYXDIHOUFWIIBACUPQ7KKSOWILGW3HAC
{-# LANGUAGE DeriveTraversable #-}
data NonEmptyList a = NonEmptyList a [a] deriving (Show, Eq, Ord)
data NonEmptyList a = NonEmptyList a [a] deriving (Show, Eq, Ord, Functor, Foldable, Traversable)