code 31053;
procedure POLSHTCHS(N,A);
value N; integer N; array A;
begin 
    LINTFMPOL(.5,.5,N,A);
    POLCHS(N,A);
end POLSHTCHS;
        eop