Ticket #5455: pat.hs

File pat.hs, 125 bytes (added by MikolajKonarski, 3 years ago)
Line 
1module Pat where
2
3w :: String
4w = let (_:_) = ["1", "2", "3"] in "1"
5
6w2 :: String
7w2 = let (_a:_b) = ["1", "2", "3"] in "1"