prag($tpar,8, index(2)).
prag($tsubpars,6, index(2)).
prag($tsubpar,6, index(2)).
