"CODE" 31053;
"PROCEDURE" POLSHTCHS(N,A);
"VALUE" N; "INTEGER" N; "ARRAY" A;
"BEGIN"
    LINTFMPOL(.5,.5,N,A);
    POLCHS(N,A);
"END" POLSHTCHS;
        "EOP"