/format [297 210] def
/mm {0.352777778 div} def

/fw format 0 get mm def
/fh format 1 get mm def

/pisma [/Helvetica-Narrow] def

/tekst (Benjamin Cacan) def
/debljinaLinije 20 def

%%%%%%%%%%%%%%
0 0 0.2 0 setcmykcolor
0 0 fw fh rectfill
%%%%%%%%%%%%%%
%%%%%%%%%%%%%%
0 1 0 0 setcmykcolor
pisma 0 get 50 selectfont
325 300 moveto
(G r u p a) show
500 350 moveto
(H) show
%%%%%%%%%%%%%%


%%%%%%%%%%%%%%
0 setgray
8 setlinewidth
pisma 0 get 120 selectfont
50 150 moveto
tekst false charpath
stroke


 pisma 0 get 120 selectfont
50 150 moveto
tekst false charpath

clip
newpath
%%%%%%%%%%%%%%


%%%%%%%%%%%%%%
debljinaLinije setlinewidth

 %%%%%%%%%%%%%%/b rand 10 sub def

0 1 50 {
    /i exch def
    /ii i 50 div rand 3 mod mul def
    /i2 1 ii sub rand 4 mod mul def
    /i3 ii i2 sub rand 3 mod mul def

    i3 ii i2 0 setcmykcolor


    /xx i debljinaLinije mul  150 sub def
    xx 0 moveto
    xx 100 add fh lineto

    stroke

}for

%%%%%%%%%%%%%%

0 1 100 {
    /i exch def
    /ii rand 15 mod 10 div def
    /rr rand 15 mod 2 sub def

    0 0 0 0 setcmykcolor
    i 10 mul ii 150 mul rr 0 360 arc fill


}for
%%%%%%%%%%%%%%
%%%%%%%%%%%%%%










% {
    % /probni_redak novi_redak rijeci 0 get concatinate def

    % probni_redak stringwidth pop  sirina_stupca lt {

            % /novi_redak probni_redak splitter concatinate def
            % /rijeci rijeci 1 rijeci length 1 sub getinterval def

        % } {
            % novi_redak ispis
            % /novi_redak () def

            % } ifelse

    % rijeci length 0 eq {novi_redak ispis exit} if

    % } loop