1{-# OPTIONS_GHC -F -pgmFhsx2hs #-}
2{-# LANGUAGE RegularPatterns #-}
3module RegularPatterns where
4
5f :: [Int] -> [[Int]]
6f [ 0+!, b+, 1?, (| 2,3 |) ] = [b]
7f [ 1+, (| x | x `mod` 2 == 0 |) ] = [[x]]
8f [ 2, a@(| b@:_, _ |)* ] = b:a
9f _ = []
10