TIM export list and ifExample2

src/Core/Examples.hs

@@ -64,10 +64,14 @@ arithExample2 = [coreProg|
     main = negate# ((+#) 2 ((*#) 5 3));
 |]
 
-ifExample = [coreProg|
+ifExample1 = [coreProg|
     main = if# True 2 3;
 |]
 
+ifExample2 = [coreProg|
+    main = if# (id True) 2 3;
+|]
+
 facExample = [coreProg|
     fac n = if# ((==#) n 0) 1 ((*#) n (fac ((-#) n 1)))
     main = fac 3;