prag($geninline,7, index).
prag($geninline_cut,6, index).
prag($geninl_par,7, index(2)).
prag($geninl_subpars,6, index(2)).
prag($geninl_subpar,6, index(2)).
