Big testing update

tests/sprint4/test/sp4_cg_less_than.alpha

@@ -0,0 +1,10 @@
+type main: integer -> integer
+function test: main
+
+test (a) := {
+        [Boolean: b; integer: x; integer: y]
+        x := 1;
+	y := 2;
+	b := x < y;
+        return 1;
+}