{-# LANGUAGE PatternSynonyms #-}
module Pattern (
  test,
  test2 ) where

import qualified Data.List.NonEmpty as List1
import Data.List.NonEmpty (NonEmpty, pattern (:|), (<|))


test = List1.cycle (1 :| [2,3])

test2 = 1 :| [2,3,1,2,3]