From 2a46a8f23521753b40def7f9dcec70d4c561a438 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 30 Oct 2018 18:14:31 -0400
Subject: [PATCH] WIP

---
 flatten-seq.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 flatten-seq.scm

diff --git a/flatten-seq.scm b/flatten-seq.scm
new file mode 100644
index 00000000..1af7490b
--- /dev/null
+++ b/flatten-seq.scm
@@ -0,0 +1,11 @@
+(import (scheme base) (scheme write) (scheme cyclone util))
+
+(define sexp
+  '(Cyc-seq
+         (set! b '(#f . #f))
+         ((Cyc-seq
+           (set-car!  a 1)
+           ((Cyc-seq
+             (set-cdr!  a '(2))))))))
+
+;; TODO: goal is a single cyc-seq containing all expressions as a single list