print [Loading a file of test goodies]
print "poly
define "poly [[:d :a] [forward :d] [right :a] [poly :d :a]]
print "tree
define "tree [[:l] [if :l < 2 then stop] [left 45] [fd :l] [make "x :l / 2] [tree :x] [back :l] [right 90] [fd :l] [make "x :l / 2] [tree :x] [back :l] [left 45] ]
print "polystep
define "polystep [[:s :a] [fd :s] [right :a]]
print "polyspiral
define "polyspiral [[:side :angle :inc] [polystep :side :angle] [make "x :side + :angle] [polyspiral :x :angle :inc]]