mhl,
if rsum((if p(v961) then if p(v961^a) and a(v961^4) then'1;'else'0;'fi fi)) >0 then  
   if rsum((if p(v961) then if p(v961^a) and a(v961^4)then'1;'else'0;'fi fi))
      >3 then &unifor('S0'),
      (if p(v961) then 
          if p(v961^a) and a(v961^4) then 
             if val(&unifor('S1A'))=1 then 
                if p(v961^9) then v961^a,| |v961^d,| |v961^b,if a(v961^b) then v961^g fi 
                else ,
                   if v961^b:'. ' then v961^b else 
                      if v961^b:'.'then &unifor('G0.'v961^b),'. '&unifor('G2.'v961^b) else v961^b fi 
                   fi,if &unifor('G2.'v961^b):'.'then| |d961^b fi,
                   if a(v961^b) then v961^g| | fi,v961^a,| |v961^d 
       fi fi fi fi),
       if a(v101) or &unifor('Kjzk.mnu|'&unifor('Av101#1'))<>''then' [è äð.]'else' [et al.]'fi 
   else 
      (if p(v961) then 
          if p(v961^a) and a(v961^4) then|, |+d961^a,
             if p(v961^9) then v961^a,| |v961^d,| |v961^b,
                if a(v961^b) then | |v961^g fi 
             else 
                if v961^b:'. ' then v961^b else 
                   if v961^b:'.'then &unifor('G0.'v961^b),'. '&unifor('G2.'v961^b) else v961^b fi 
                fi,if &unifor('G2.'v961^b):'.'then| |d961^b fi,
                if a(v961^b) then v961^g| | fi,v961^a,| |v961^d 
      fi fi fi) 
fi,if s(v961^4,v962)<>''then' ; 'fi fi,
if s(v961^4)<>''then 
   if rsum((if p(v961) then if p(v961^a) and a(v961^4) then'1;'else'0;'fi fi))=0  
   then 
      if p(v962) then &unifor('S0'),
         (if p(v962) then 
             if val(&unifor('S1A'))>1 then |, |d962 fi,v962^7,
             if a(v962^7) then v962^a,
                if s(v962^n,v962^c)<>''then' ('v962^n| ; |,v962^c')'fi,|, |v962^b,
                if s(v962^d,v962^f,v962^e)<>''then' ('v962^d| ; |,v962^f,
                   if p(v962^f)then| ; |v962^e else v962^e fi,| / |v962^h,| / |v962^i')'
         fi  fi fi),
         &unifor('S0'), 
         (if p(v961^a) and p(v961^4) then 
             if val(&unifor('S1A'))>1 then ', 'else ' ; 'fi,
             if v961^4*4.1='*'then v961^4*5 else &unifor('Q'v961^4*4) fi,|, |d961^5,
             if v961^5*4.1='*'then v961^5*5 else &unifor('Q'v961^5*4) fi,|, |d961^6,
             if v961^6*4.1='*'then v961^6*5 else &unifor('Q'v961^6*4) fi,| |d961^4,        
             if p(v961^9)then v961^a,| |v961^d,| |v961^b,if a(v961^b) then v961^g fi 
             else 
                if v961^b:'. ' then v961^b else 
                   if v961^b:'.'then &unifor('G0.'v961^b),'. '&unifor('G2.'v961^b) else v961^b fi 
                fi,if &unifor('G2.'v961^b):'.'then| |d961^b fi,
                if a(v961^b) then v961^g| |fi,v961^a,| |v961^d,| (|v961^7|)|,  
         fi  fi),
      else &unifor('S0'),
         (if p(v961^a) and p(v961^4) then 
             if val(&unifor('S1A'))>1 then ', 'fi,
             if v961^4*4.1='*'then v961^4*5 else &unifor('Q'v961^4*4) fi,|, |d961^5,
             if v961^5*4.1='*'then v961^5*5 else &unifor('Q'v961^5*4) fi,|, |d961^6,
             if v961^6*4.1='*'then v961^6*5 else &unifor('Q'v961^6*4) fi,| |d961^4,
             if p(v961^9)then v961^a,| |v961^d,| |v961^b,if a(v961^b) then v961^g fi 
             else 
                if v961^b:'. ' then v961^b else 
                   if v961^b:'.'then &unifor('G0.'v961^b),'. '&unifor('G2.'v961^b) else v961^b fi 
                fi,if &unifor('G2.'v961^b):'.'then| |d961^b fi,
                if a(v961^b) then v961^g| |fi,v961^a,| |v961^d,| (|v961^7|)|,  
         fi  fi),
      fi 
   else 
      if rsum((|1;|d961^4,|0;|n961^4))>0 or p(v962) then 
         if rsum((|0;|d961^4,|1;|n961^4))>0 or p(v962)then &unifor('S0'),
            (if p(v961^a) and p(v961^4) then 
                if val(&unifor('S1A'))>1 then ', 'fi,
                if v961^4*4.1='*'then v961^4*5 else &unifor('Q'v961^4*4) fi,|, |d961^5,
                if v961^5*4.1='*'then v961^5*5 else &unifor('Q'v961^5*4) fi,|, |d961^6,
                if v961^6*4.1='*'then v961^6*5 else &unifor('Q'v961^6*4) fi,| |d961^4,        
                if p(v961^9)then v961^a,| |v961^d,| |v961^b,if a(v961^b) then v961^g fi 
                else 
                   if v961^b:'. ' then v961^b else 
                      if v961^b:'.'then &unifor('G0.'v961^b),'. '&unifor('G2.'v961^b) else v961^b fi 
                   fi,if &unifor('G2.'v961^b):'.'then| |d961^b fi,
                   if a(v961^b) then v961^g| |fi,v961^a,| |v961^d,| (|v961^7|)|,  
            fi  fi),
            if p(v962) then 
               if rsum((|1;|d961^4,|0;|n961^4))>0 then ' ; 'fi,
               (if p(v962) then |, |+d962,v962^7,
                   if a(v962^7) then v962^a,
                      if s(v962^n,v962^c)<>''then' ('v962^n| ; |,v962^c')'fi,|, |v962^b,
                      if s(v962^d,v962^f,v962^e)<>''then' ('v962^d| ; |,v962^f,
                         if p(v962^f)then| ; |v962^e else v962^e fi,| / |v962^h,| / |v962^i')'
               fi  fi fi),
    fi fi fi fi,
else 
   if p(v962) then &unifor('S0'),
      (if p(v962) then 
          if val(&unifor('S1A'))>1 then |, |d962 fi,v962^7,
          if a(v962^7) then v962^a,
             if s(v962^n,v962^c)<>''then' ('v962^n| ; |,v962^c')'fi,|, |v962^b,
             if s(v962^d,v962^f,v962^e)<>''then' ('v962^d| ; |,v962^f,
                if p(v962^f)then| ; |v962^e else v962^e fi,| / |v962^h,| / |v962^i')'
      fi  fi fi),
fi fi