%%HP: T(3)A(R)F(.);
\-> ord             

\<< DUP            
    SIZE            
    LIST\->        
    DROP            
    'cols' STO      
    DROP            
    cols 3 *       
    cols           
    2 \->LIST       
    RDM             
    'a' STO         
    3 'r' STO       
    1 CF           
ord 1 +             
'coef' STO          
CLEAR                 
3 'r' STO
ARYCHK                
3 'r' STO           
  DO
     1 cols 1 -     
     FOR c
         a         
         r          
         c          
         2 \->LIST  

         '(a(r-1,1)*a(r-2,c+1)-a(r-2,1)*a(r-1,c+1))/a(r-1,1)'
         EVAL
         PUT       
         'a' STO    
     NEXT
     1 'r' STO+     
     ARYCHK         
UNTIL 1 FS?         
END
a                   
r 1 - cols 2 \->LIST
RDM                
{ a cols r s cnt coef hc pwr}  
PURGE               
1 CF                
\>>
