diff --git a/functional-tests/loops.scm b/functional-tests/loops.scm
new file mode 100644
index 0000000..ad9447d
--- /dev/null
+++ b/functional-tests/loops.scm
@@ -0,0 +1,13 @@
+(library
+  (loops)
+  (export upto)
+  (import (rnrs))
+
+  (define-syntax upto
+    (syntax-rules ()
+      ((_ (var count) body ...)
+       (let loop ((var 0))
+         (when (< var count)
+             (begin body ...)
+             (loop (+ 1 var))))))))
+