oto skok :z :x
 pod
 np :z pw 90
 np :x lw 90
 
 opu
 
 
 
 
już

oto MOTYW :ile
sż
cs
  
  
  
 niech "a (480/pwk 2)
 ;bok żółtego
 
 niech "s :ile/2+0.5
 ;ile kwadracików w przekątnej
 
 
 niech "f (:a/:s)/(pwk 2)
 ;bok zielonego
 
 niech "d (:f/2)
 ;połowa boku zielonego
 
 niech "q :f/4
 ;bok zielonego podzielony na 4 części
 
 niech "w (pwk 2)*:q
 ;przekątna boku zielonego podzielonego przez 4
 
 
 
  skok (-480/2) 0
  
 
 lw 45
 
 zolty
 
 wróć
 
 skok (-:ile*:f/2) (-:f/2)
 
 piramida :ile 
  
  wróć
  
  skok ((:ile/2)*:f) :f/2
  
  pw 180
   
  piramida :ile 
  
  wróć
 
już

oto zielony 

 ukm "zielony
 
 wielokąt [powtórz 4 [np :f pw 90]]
 
 skok 0 :q
 
 mały
 
 
 pw 45
  
 skok 0 2*:q
 
 mały 
 
 np 2*:w pw 45
 
 mały 
 
 pw 45
 
 skok 0 2*:q
 
 mały
 pw 45 
 skok (-2*:q) (-3*:q)
 
 
już

oto zolty
 
 ukm "żółty
 
 wielokąt [powtórz 4 [ np :a pw 90]]
 
już

oto potrzebne
 
 
 
już

oto czerwony
 
 niech "c :f/2
 
 niech "v (pwk 2)*:c
 
 ukm "czerwony
 
 wielokąt [powtórz 4[ np :f pw 90]]
 
 dórzy
 
 lw 45 np :c pw 90
 
 
 
 
już

oto piramida :ile 


jeśli :ile<0 [stop]

 jeśli element? :ile [ 1 5 9 13 17 21 25 29] [powtórz :ile [zielony skok :f 0]]
 
 jeśli element? :ile [ 3 7 11 15 19 23 27 ] [powtórz :ile [czerwony skok :f 0]]
 
 skok (-:ile*:f) 0
 
 skok :f (-:f)
 
 piramida :ile-2
 
 
już

oto mały
 
 ukm "żółty
 
 lw 45 
 wielokąt [powtórz 4 [np :w pw 90]]
 
już

oto dórzy
 
 ukm "żółty
 
 pw 90 np :c lw 135 
 wielokąt [powtórz 4 [np :v pw 90]]
 
 
już