'\fs22',
'\par ',

'\b Ïàðòèÿ ¹ 'v88^a'\par \b0',
'\par \b îòäåë \tab âñåãî \tab ÎÏË \tab ÅÍË \tab Òåõ \tab ñ/õ \tab ÈèÑ \tab Ïðî÷ \tab Õóä. \b0 ',

(if v44^i='ÊÕ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
   '\par   ÊÕ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0) '\tab ',
       if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                 '\tab ' if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                    '\tab ' if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                            '\tab ' if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                    '\tab ' if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                            '\tab ' if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                    '\tab ' if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                            '\tab ' if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='×Ç' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ×Ç\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab ' if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ì' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ì\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÀÁ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÀÁ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÍÏË' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÍÏË\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÞÀ' then
&uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÞÀ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÏÎ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÏÎ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÁÎ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
   '\par   ÁÎ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0) '\tab ',
       if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                 '\tab ' if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                    '\tab ' if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                            '\tab ' if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                    '\tab ' if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                            '\tab ' if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                    '\tab ' if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                            '\tab ' if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÊÐ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÊÐ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÌÎ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÌÎ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÎÊ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÎÊ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÍÁÒ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÍÁÒ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='ÇÝÈ' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   ÇÝÈ\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô1' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô1\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô2' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô2\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô3' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô3\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô4' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô4\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô5' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô5\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô6' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô6\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô7' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô7\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô8' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô8\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô9' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô9\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô10' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô10\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô11' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô11\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô12' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô12\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô13' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô13\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô14' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô14\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô15' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô15\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô16' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô16\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô17' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô17\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),


(if v44^i='Ô18' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô18\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),



(if v44^i='Ô19' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô19\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),


(if v44^i='Ô20' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô20\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô21' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô21\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô22' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô22\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô23' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô23\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô24' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô24\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
            if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô25' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô25\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô26' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô26\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),


(if v44^i='Ô27' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô27\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô28' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô28\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
              if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô29' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô29\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),


(if v44^i='Ô30' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô30\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),

(if v44^i='Ô31' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô31\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),


(if v44^i='Ô32' then &uf('+7U1001#',f(val(v44^1),0,0)';'),&uf('+7U1002#',f(val(v44^2),0,0)';'),&uf('+7U1003#',f(val(v44^3),0,0)';'),&uf('+7U1004#',f(val(v44^4),0,0)';'),&uf('+7U1005#',f(val(v44^5),0,0)';'),&uf('+7U1006#',f(val(v44^6),0,0)';'),&uf('+7U1007#',f(val(v44^7),0,0)';'),&uf('+7U1008#',f(val(v44^8),0,0)';') fi/),
if p(g1001) then
    '\par   Ô32\tab\tab 'f(rsum(g1001,g1002,g1003,g1004,g1005,g1006,g1007,g1008),0,0),'\tab ',
                if p(g1001) then f(rsum(g1001),0,0) else '0' fi,
                    '\tab 'if p(g1002) then f(rsum(g1002),0,0) else '0' fi,
                            '\tab 'if p(g1003) then f(rsum(g1003),0,0) else '0' fi,
                                    '\tab 'if p(g1004) then f(rsum(g1004),0,0) else '0' fi,
                                            '\tab 'if p(g1005) then f(rsum(g1005),0,0) else '0' fi,
                                                    '\tab 'if p(g1006) then f(rsum(g1006),0,0) else '0' fi,
                                                            '\tab 'if p(g1007) then f(rsum(g1007),0,0) else '0' fi,
                                                                    '\tab 'if p(g1008) then f(rsum(g1008),0,0) else '0' fi,fi, &unifor('+7'),


'\par \par \b   Èòîãî ïî çàïèñè 'v88^a' : \b0'
if p(v49^1) then'\par Îáùåñòâåííî-ïîëèòè÷åñêàÿ ëèòåðàòóðà \tab : ',v49^1 fi,
if p(v49^2) then'\par Åñòåñòâåííîíàó÷íàÿ ëèòåðàòóðà \tab \tab : ',v49^2 fi,
if p(v49^3) then'\par Òåõíèêà \tab  \tab \tab \tab \tab : ',v49^3 fi,
if p(v49^4) then'\par Ñåëüñêîå õîçÿéñòâî \tab \tab \tab \tab: ',v49^4 fi,
if p(v49^5) then'\par Èñêóññòâî è ñïîðò \tab \tab \tab \tab: ',v49^5 fi,
if p(v49^6) then'\par Ïðî÷èå \tab \tab \tab \tab \tab: ',v49^6 fi,
if p(v49^7) then'\par Õóäîæåñòâåííàÿ ëèòåðàòóðà \tab \tab : ',v49^7 fi,
if p(v49^8) then'\par Äîøêîëüíàÿ ëèòåðàòóðà \tab \tab \tab  : ',v49^8 fi,
"\par äðóãîå: "v49^9, 
'\par \par \par',