/inch {72 mul} def
4.25 inch 5.5 inch translate
0 1 72 {                                           % for i:=0 to 72 lépés 1
  1 inch 0 moveto
  3.125 inch 0 rlineto
  5 rotate                                          % 5 fokos forgatás
} for
stroke
showpage