open String;; let stroka = "acbac";; let rec sravnit' l= let len = (length l) in let m = ref (len-1) in while (!m)>1 && (sub l 0 ((!m)-1)) <> (sub l (len-(!m)) (len-1)) do Printf.printf "%d" (!m); m:=(!m)-1 done; print_string (sub l 0 ((!m)-1)) ;; sravnit' stroka;;