%%HP: T(1)A(R)F(.);
  A IA M
   `(M-SUM(IA))*A` 
II
     `ROW(IA,1.)
RisA` ; `ROW+(RisA,II
,2.)RisA` ; `IA+II
TotA` ; `ROW+(RisA,
TotA,3.)RisA`
    
  
