*

1 files changed, 19 insertions, 11 deletions

diff --git a/scratch/game.brev b/scratch/game.brev
index 0768b62..5b46a72 100644
--- a/scratch/game.brev
+++ b/scratch/game.brev
@@ -1,4 +1,5 @@
 (import brev mdg)
+(import simple-loops)
 
 (define true #t)
 (define false #f)
@@ -10,15 +11,22 @@
 (define start-game "start game")
 (define game-over "game over")
 
-(define (listner game-running)
-	(display " > ")
-	(define user-input (read))
-	(if (string=? user-input "quit")
-		(set! game-running false)
-		(print user-input))
-	game-running)
+; (define (listner game-running)
+; 	(display " > ")
+; 	(define user-input (read))
+; 	(if (string=? user-input "quit")
+; 		(set! game-running false)
+; 		(print user-input))
+; 	game-running)
 
-(let loop ()
-	(if (eqv? game-running true)
-		(listner game-running))
-	(loop))
\ No newline at end of file
+; (let loop ()
+; 	(if (eqv? game-running true)
+; 		(listner game-running))
+; 	(loop))
+
+(let ((n 4) (lst '()))
+  (do-while (<= 0 n)
+    (set! lst (cons n lst))
+    (set! n (- n 1)))
+  (print "n "n)
+  lst)
\ No newline at end of file