/valt 10 def
% valt=10
/uj {
% rekurzív eljárás
0.5 0.5 scale
60 rotate
0 200 rlineto
/valt valt 1 sub def
% valt=valt-1
valt 0 ne {uj} if
% ha valt nem 0
0 -200 rmoveto
-120 rotate
0 200 rlineto
valt 0 gt {uj} if
% ha valt nagyobb, mint 0
0 -200 rmoveto
60 rotate
/valt valt 1 add def
% valt=valt + 1
2 2 scale
}def
400 400 translate
0 0 moveto
0.8 0.4 0.5 setrgbcolor
uj
stroke