%!
% This is a postscript program for printing staves
% on which music is to be written

gsave
72 72 scale
0 setgray
.005 setlinewidth

/deltalines 0.1 def     % gap between lines within a stave
/ypos 1 def             % the position of the lowest stave
/perst 1 def            % stave + blank space height

/stave  {
        gsave
        translate
        1 1 5 {
                0 0 moveto
                8.5 0 lineto
                0 deltalines translate
        } for

        stroke
        grestore

} def

1 1 10 {
        0 ypos stave
        /ypos ypos perst add def
} for

showpage
grestore