{-# LANGUAGE PatternSynonyms #-}
module Pattern 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]