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

oto zielony :c
 
 niech "a 480/(:c+1)
 
 niech "x ((pwk 2)*(:a/4))
 
 ukm "zielony4
 
 skok (-:a/2) (-:a/2)
 
 wielokąt [powtórz 4 [np :a pw 90]]
 
 skok :a/2 :a/2
 
 ukm "żółty
 
 powtórz 4 [skok 0 :a/4
 
 lw 45
 
 wielokąt [powtórz 4 [np :x pw 90]]
 
 pw 45
 
 skok 0 (-:a/4)
 
 pw 90]
 
już

oto czerwony :c
 
 ukm "czerwony4
 
 niech "a 480/(:c+1)
 
 niech "x ((pwk 2)*(:a/4))
 
 skok (-:a/2) (-:a/2)
 
 wielokąt [powtórz 4 [np :a pw 90]]
 
 skok :a/2 :a/2
 
 skok (-:a/2) 0 
 
 ukm "żółty
 
 lw 45 
 
 wielokąt [powtórz 4 [np (:x*2) pw 90]]
 
 pw 45
 
 skok :a/2 0
 
już

oto schody :ile
 
 niech "a 480/(:c+1)
 
 jeśli :ile<0 [stop]
 
 jeśli element? :ile [1 5 9 13 17 21 25 29] [powtórz :ile [zielony :c skok 0 :a]]
 
 jeśli element? :ile [3 7 11 15 19 23 27] [powtórz :ile [czerwony :c skok 0 :a]]
 
 skok 0 (-(:a*:ile))
 
 skok :a :a
 schody :ile-2 
 
już

oto MOTYW :ile
 
 cs
 
 żółty
 
 niech "c :ile
  
 niech "a 480/(:c+1)
  
 skok (-(240-:a)) 0
 
 lw 90
 
 schody :ile
 
 wróć
  
 skok (240-:a) (0)
 
 pw 90 
 
 schody :ile
 
 wróć
 
 sż
 
już

oto żółty
 
 ukm "żółty
 
 niech "b ((pwk 2)*240)
 
 skok (-240) 0 
 
 lw 45
 
 wielokąt [powtórz 4 [np :b pw 90]]
 
 pw 45
 
 skok 240 0
 
już