prag($roundtosq,2, index).
prag($aux_split_name,4, index(3)).

