added more tests

tests/more-tests/nestedloop.expected

@@ -0,0 +1 @@
+(1000000 1000000)

tests/more-tests/nestedloop.rkt

@@ -0,0 +1,64 @@
+#lang planet dyoo/whalesong/base
+
+;; Imperative body:
+(define (loops n)
+  (let ((result 0))
+    (let loop1 ((i1 1)) 
+      (if (> i1 n)
+          'done
+          (begin
+            (let loop2 ((i2 1)) 
+              (if (> i2 n)
+                  'done
+                  (begin
+                    (let loop3 ((i3 1)) 
+                      (if (> i3 n)
+                          'done
+                          (begin
+                            (let loop4 ((i4 1)) 
+                              (if (> i4 n)
+                                  'done
+                                  (begin
+                                    (let loop5 ((i5 1)) 
+                                      (if (> i5 n)
+                                          'done
+                                          (begin
+                                            (let loop6 ((i6 1)) 
+                                              (if (> i6 n)
+                                                  'done
+                                                  (begin
+                                                    (set! result (+ result 1))
+                                                    (loop6 (+ i6 1)))))
+                                            (loop5 (+ i5 1)))))
+                                    (loop4 (+ i4 1)))))
+                            (loop3 (+ i3 1)))))
+                    (loop2 (+ i2 1)))))
+            (loop1 (+ i1 1)))))
+    result))
+
+;; Functional body:
+(define (func-loops n)
+  (let loop1 ((i1 1)(result 0))
+      (if (> i1 n)
+          result
+          (let loop2 ((i2 1)(result result))
+            (if (> i2 n)
+                (loop1 (+ i1 1) result)
+                (let loop3 ((i3 1)(result result))
+                  (if (> i3 n)
+                      (loop2 (+ i2 1) result)
+                      (let loop4 ((i4 1)(result result))
+                        (if (> i4 n)
+                            (loop3 (+ i3 1) result)
+                            (let loop5 ((i5 1)(result result))
+                              (if (> i5 n)
+                                  (loop4 (+ i4 1) result)
+                                  (let loop6 ((i6 1)(result result))
+                                    (if (> i6 n)
+                                        (loop5 (+ i5 1) result)
+                                        (loop6 (+ i6 1) (+ result 1)))))))))))))))
+
+(let ((cnt 10))
+  (list
+   (loops cnt)
+   (func-loops cnt)))

tests/more-tests/scheme-whalesong.expected

@@ -0,0 +1 @@
+("eight" "eleven" "five" "four" "nine" "one" "seven" "six" "ten" "three" "twelve" "two")