From e6c65d33e68fdfe3b28bff284c62ead374566504 Mon Sep 17 00:00:00 2001
From: Brian Silverman <brians@playfulinvention.com>
Date: Wed, 30 May 2007 13:28:45 +0000
Subject: Initial import

---
(limited to 'samples/square.ta')

diff --git a/samples/square.ta b/samples/square.ta
new file mode 100755
index 0000000..7cc3252
--- /dev/null
+++ b/samples/square.ta
@@ -0,0 +1,68 @@
+(lp0
+(I0
+S'repeat'
+p1
+I853
+I277
+(lp2
+NaI1
+aI2
+aNatp3
+a(I1
+(S'number'
+p4
+I4
+tp5
+I939
+I286
+(lp6
+I0
+aNatp7
+a(I2
+S'forward'
+p8
+I948
+I326
+(lp9
+I0
+aI3
+aI4
+atp10
+a(I3
+(g4
+I200
+tp11
+I1022
+I335
+(lp12
+I2
+aNatp13
+a(I4
+S'right'
+p14
+I948
+I365
+(lp15
+I2
+aI5
+aNatp16
+a(I5
+(g4
+I90
+tp17
+I1022
+I374
+(lp18
+I4
+aNatp19
+a(I-1
+S'turtle'
+p20
+F2.8421709430404007e-14
+F-3.6738190614671318e-14
+F0.0
+I0
+I50
+I5
+tp21
+a.
\ No newline at end of file
--
cgit v0.9.1