10 Þ D "Mat A[10,2]" Identity D Þ Mat Z -10 Þ S 1 Þ W D Þ T Lbl 1 S+TW Þ X D Þ A 1 Þ B Lbl 2 B Þ Mat Z[T,D+1-A] BX Þ B Dsz A Goto 2 Prog "Monome" Ans Þ Mat A[T,1] Dsz T Goto 1 Mat Z^-1 Mat A Þ Mat A D Þ A Lbl 4 A-1 Þ Mat A[A,2] Abs Mat A[A,1]<1E-10 ã 0 Þ Mat A[A,1] Dsz A Goto 4 "Coef Brut, Puiss" "Coef Frac, Puiss"Ý Mat AÝ D Þ E Lbl 6 Abs Mat A[E,1] Þ F 0 Þ B Lbl 5 Isz B Frac (BF+1E-6)<2E-6 ã Goto 9 Goto 5 Lbl 9 Intg (BF+1E-6) Þ A Mat A[E,1]<-1E-6 ã -A Þ A A»B Þ Mat A[E,1] Dsz E Goto 6 Mat A