mhl,(if p(v***)then if p(v***^A)then if v***^A:' ' and v***^9:'0' and (not(v***^A:','))then &unifor('G0 'v***^a),', ',&unifor('G2 'v***^a) else v***^a fi fi,| |v***^d,if p(v***^g) then |, |v***^g fi,if a(v***^g) and p(v***^b)then ', ',if v***^b:'. 'or (not(v***^b:'.'))then v***^b else &unifor('G0.'v***^b),'. ',&unifor('G2.'v***^b) fi fi,if p(v***^1)or p(v***^f) or p(v***^c) then' (',v***^1,if p(v***^1) and p(v***^c)then ' ; ' fi,v***^c,if (p(v***^1) or p(v***^c)) and p(v***^f) then' ; 'fi,v***^f,')'  fi fi/) 
mhl,(if p(v***^a)then '^3',f(mfn,0,0),'^A'v***^a,'^B'v***^b,'^G'v***^g,'^1'v***^1,'^C'v***^c,'^D'v***^d,'^F'v***^f,'^L'if v***^9:'0'then'1'fi,'^9'if v***^9:'0'then'1'fi,v***^<,if p(v910^P) then '^P',&unifor('Av910^P#'&unifor('+N910')) fi,if p(v910^Y) then '^Y',&unifor('Av910^Y#'&unifor('+N910')) fi,'^U^R'fi,if '***'='210' or '***'='510' or  '***'='710'then else if &uf('Av210#1')<>''then if &uf('Av210^A#1')<>'' then if &uf('Av210^A#1'):' ' and &uf('Av210^9#1'):'0' and (not(&uf('Av210^A#1'):','))then &unifor('G0 '&uf('Av210^a#1')),', ',&unifor('G2 '&uf('Av210^a#1')) else &uf('Av210^a#1') fi fi,if &uf('Av210^d#1')<>'' then ' ' &uf('Av210^d#1') fi,if &uf('Av210^g#1')<>'' then ', '&uf('Av210^g#1') fi,if &uf('Av210^g#1')='' and &uf('Av210^b#1')=''then ', ',if &uf('Av210^b#1'):'. 'or (not(&uf('Av210^b#1'):'.'))then &uf('Av210^b#1') else &unifor('G0.'&uf('Av210^b#1')),'. ',&unifor('G2.'&uf('Av210^b#1')) fi fi,if &uf('Av210^1#1')<>''or &uf('Av210^f#1')<>'' or &uf('Av210^c#1')<>'' then' (',&uf('Av210^1#1'),if &uf('Av210^1#1')<>'' and &uf('Av210^c#1')<>''then ' ; ' fi,&uf('Av210^c#1'),if (&uf('Av210^1#1')<>'' or &uf('Av210^c#1')<>'') and &uf('Av210^f#1')<>'' then' ; 'fi,&uf('Av210^f#1'),')'  fi fi fi/) 
mhl,(if p(v***)then if p(v***^A)then if v***^A:' ' and v***^9:'0' and (not(v***^A:','))then &unifor('G0 'v***^a),', ',&unifor('G2 'v***^a) else v***^a fi fi,| |v***^d,if p(v***^g) then |, |v***^g fi,if a(v***^g) and p(v***^b)then ', ',if v***^b:'. 'or (not(v***^b:'.'))then v***^b else &unifor('G0.'v***^b),'. ',&unifor('G2.'v***^b) fi fi,if p(v***^1)or p(v***^f) or p(v***^c) then' (',v***^1,if p(v***^1) and p(v***^c)then ' ; ' fi,v***^c,if (p(v***^1) or p(v***^c)) and p(v***^f) then' ; 'fi,v***^f,')'  fi fi/)