"CODE"31043;
"PROCEDURE"ALLCHEPOL(N,X,T);
"VALUE"N,X;"INTEGER"N;"REAL"X;"REAL""ARRAY"T;
"IF" N = 0 "THEN" T[0] :=1 "ELSE"
"IF" N = 1 "THEN" "BEGIN" T[0] := 1; T[1] := X "END" "ELSE"
"BEGIN""INTEGER"I;"REAL"T1,T2,H,X2;
   T[0]:=T1:=1;T[1]:=T2:=X;X2:=X+X;
   "FOR"I:=2"STEP"1"UNTIL"N"DO"
   "BEGIN"T[I]:=H:=X2*T2-T1;T1:=T2;T2:=H"END"
"END"ALLCHEPOL;
        "EOP"