[Haskell-cafe] 1p function for NonEmpty