Procedury:
E:
oto E :a
kwadrat :a
lw 90 np :a/5*2
pw 90 np :a/5
lw 90 np :a/5*2
powtórz 2 [pw 90 np :a/5]
powtórz 2 [lw 90 np :a/5]
pw 90 np :a/5 pw 90
np :a/5*2 lw 90 np :a/5
pw 90 np :a/5*2 pw 90 np :a lw 180
już
EKI1:
oto EKI1 :a
ws :a
E :a
powtórz 2 [pw 90 np :a lw 90
np :a lw 90 E :a] pw 90
np :a lw 90 kwadrat :a
np :a/2 lw 90 pod np :a/2 lw 90
opu
już
EKI:
oto EKI :n
jeśli :n>5 [STOP]
jeśli :n<1 [STOP]
jeśli :n=1 [EKI1 200]
jeśli :n=2 [EKI1 200 EKI1 100]
jeśli :n=3 [EKI1 200 EKI1 100 EKI1 50]
jeśli :n=4 [EKI1 200 EKI1 100 EKI1 50 EKI1 25]
jeśli :n=5 [EKI1 200 EKI1 100 EKI1 50 EKI1 25 EKI1 25/2]
już
Kwadrat:
oto kwadrat :a
powtórz 4 [np :a lw 90]
już
Przepraszam za brak niektorych polskich liter.