1 files changed, 19 insertions, 0 deletions
diff --git a/main.scm b/main.scm
new file mode 100644
index 0000000..348a2ba
--- /dev/null
+++ b/main.scm
@@ -0,0 +1,19 @@
+(define (note freq start len) (
+	lambda (t) (
+		if (or (< t start) (> t (+ start len)))
+			0
+			freq
+	)
+))
+
+(define (music t) (
+	(note 440 0 10) t
+))
+
+(define (play t) (
+	if (< t 100)
+		(cons (music t) (play (+ t 1)))
+		(music t)
+))
+
+(display (play 0))