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