oto lokomotywa :a
 ukp "czarny
 skok2 5*:a 2*:a kwadrat :a
 ukm "szary
 skok2 (-5*:a) (-2*:a)
 pw 90 skok 2*:a skok 2*:a lw 90
 ukp "czarny
 prostokąt 5*:a 8*:a
 prostokąt 9*:a 4*:a
już

oto pociąg :ile
 niech "a 700/(8+9*:ile)
 lw 90 skok 350 pw 90
 lokomotywa :a
 pw 90 skok :a lw 90
 powtórz :ile [wagon :a
 pw 90 skok :a lw 90]
już

oto prostokąt :bok1 :bok2
 wielokąt [
powtórz 2[np :bok1 lw 90
np :bok2 lw 90]
]
już

oto wagon :a
 ukp "czarny
 ukm "szary
skok 2*:a kwadrat :a
skok (-2*:a)
pw 90 skok 2*:a skok 2*:a lw 90
ukm jld
prostokąt 5*:a 8*:a
już

oto skok2 :a :b
 pod np :a pw 90
 np :b lw 90 opu
już

oto skok :a
pod np :a opu
 już

oto kwadrat  :bok
wielokąt [ 
powtórz 4[np :bok lw 90]
]
już