1 -- !!! ds022 -- literal patterns (wimp version)
10 g 11111111111111111111111 1.11111111111111111 = []
11 g 22222222222222222222222 2.22222222222222222 = []
12 g 33333333333333333333333 3.33333333333333333 = []
13 g 44444444444444444444444 4.44444444444444444 = []
17 h '"' ('b':'a':'r':[]) = []
27 | ((fromFloat oneone) - (fromIntegral (fromInt one)))
28 /= (fromIntegral (fromInt 0)) = []
30 | ((fromFloat twotwo) * (fromIntegral (fromInt 2)))
31 == (fromIntegral (fromInt 4.4)) = []