From acdc3b0d78bf26f9a314e96151fb72b13b6418a5 Mon Sep 17 00:00:00 2001
From: elioat <hi@eli.li>
Date: Sat, 16 Dec 2023 12:53:34 -0500
Subject: *

---
 scratch/a.brev    | 15 +++++++++++++++
 scratch/a.scm     | 14 ++++++++++++++
 scratch/game.brev | 25 +++++++++++++++++++++++++
 3 files changed, 54 insertions(+)
 create mode 100644 scratch/a.brev
 create mode 100644 scratch/a.scm
 create mode 100644 scratch/game.brev

diff --git a/scratch/a.brev b/scratch/a.brev
new file mode 100644
index 0000000..62f0d18
--- /dev/null
+++ b/scratch/a.brev
@@ -0,0 +1,15 @@
+(import brev mdg)
+
+(print "hi there")
+
+(define 
+	(strange a b)
+	(list 'product (* a b)))
+
+(define
+  (strange a b)
+	(list 'sum (require even? (+ a b))))
+
+(print
+ (map strange '(1 2 3 4) '(5 5 7 8))
+ ((over (+ x x y i)) '(10 20 40) '(3 6 9)))
\ No newline at end of file
diff --git a/scratch/a.scm b/scratch/a.scm
new file mode 100644
index 0000000..1ce9578
--- /dev/null
+++ b/scratch/a.scm
@@ -0,0 +1,14 @@
+(import
+	(chibi)
+	(chibi sxml))
+
+(define strand
+	(sxml->xml 
+		`(html
+			(head
+				(title "bean"))
+			(body
+				(h1 "hello there")
+				(p "this is some text, hmmm.")))))
+
+(display strand)
\ No newline at end of file
diff --git a/scratch/game.brev b/scratch/game.brev
new file mode 100644
index 0000000..cc62149
--- /dev/null
+++ b/scratch/game.brev
@@ -0,0 +1,25 @@
+(import brev mdg)
+
+(define true #t)
+(define false #f)
+(define game-running true)
+
+(define (menu msg)
+	(print msg))
+
+(define start-game "start game")
+(define game-over "game over")
+
+(define (listner game-running)
+	(display " > ")
+	(define user-input (read))
+	(if (eq? user-input "quit")
+        ((set! game-running false) (print game-running))
+		(print "continue"))
+	game-running)
+
+(let loop ()
+	(if (eq? game-running true)
+		(listner game-running)
+		(print "game isn't running"))
+	(loop))
\ No newline at end of file
-- 
cgit 1.4.1-2-gfad0