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 '***'='210' or '***'='510' or  '***'='710'then if p(v***^a)then '^3',if v903<>''then v903 else f(mfn,0,0) fi,'^A'v***^a,| |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',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 fi else  '^3',if v903<>''then v903 else f(mfn,0,0) fi,'^AНепринятые формы имени лица не используются' 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/)