final mart ass1

diff --git a/a1/mart/skeleton1.icl b/a1/mart/skeleton1.icl
index 128974d..f94b558 100644 (file)
--- a/a1/mart/skeleton1.icl
+++ b/a1/mart/skeleton1.icl
@@ -167,13 +167,3 @@ treeToGen (Bin x xr xl) = RIGHT (PAIR x (PAIR xr xl))
 //3.2. Yes\r
 //3.3. Less defining and easier overloading\r
 //3.4. Overhead, the compiler has to translate on and on\r
-\r
-Start = [Red >< Yellow, Blue >< Yellow, Blue >< Blue,\r
-       (Bin 1 Tip Tip) >< Tip,\r
-       [1, 2] >< [2, 3],\r
-       [1, 2] >< [1, 2],\r
-       [1, 3] >< [1, 2],\r
-//     [] >< [],\r
-//     Tip >< Tip,\r
-       (Bin 1 Tip Tip) >< (Bin 1 Tip Tip),\r
-       Tip >< (Bin 1 Tip Tip) ]\r