let monsub mastr idebut taille =
        let res = ref "" in
        if taille >= 0 then res := (String.sub mastr idebut taille);
        !res