Added some more test files

exercises/06/vslc/vsl_programs/ps3-simplify/euclid.vsl

@@ -0,0 +1,20 @@
+func euclid ( a, b )
+begin
+    if a < 0 then a := -a
+    if b < 0 then b := -b
+    if gcd ( a, b ) > 1 then
+        print "Greatest common divisor of", a, "and", b, "is", gcd ( a, b )
+    else
+        print a, "and", b, "are relative primes"
+    return 0
+end
+
+func gcd( a, b )
+begin
+    var g
+    if b > 0 then
+        g := gcd ( b, a - ((a/b)*b) )
+    else
+        g := a
+    return g
+end

exercises/06/vslc/vsl_programs/ps3-simplify/lists.vsl

@@ -7,10 +7,25 @@ func my_func(a, b, c, d, e, f, g, h) begin
     if i = f then begin
         print "hmmm"
     end
+
+    if 1 < 2 then begin
+        print "Whaa"
+    end
+    else begin
+        print "Whooo"
+    end
+
+
+
+    return i
 end
 
 func main() begin
     var n, o, p, q, r, s, t, u, v, w
     n := 5
     n += my_func(1, 2, 3, 5, 8, 13, 21, 34)
+
+    if my_func(1, 2, 3, 5, 8, 13, 21, 34) > 3 then begin
+        print "True!"
+    end
 end