@@ -73,6 +73,11 @@ module Main where
73 test19 :: Number
73 test19 :: Number
74 test19 = negate $ negate (-1)
74 test19 = negate $ negate (-1)
77 let t1 = test1 1 2 (\x y -> x + y)
82 let t1 = test1 1 2 (\x y -> x + y)
78 let t2 = test2
83 let t2 = test2
@@ -93,4 +98,5 @@ module Main where
93 let t17 = test17
98 let t17 = test17
94 let t18 = test18
99 let t18 = test18
95 let t19 = test19
100 let t19 = test19
96 trace "Done"
102 trace "Done"