open_in "a.txt";; let w = open_in "a.txt";; let rec all () = try let v = input_line w in v^(all ()) with End_of_file -> "";; let text = all ();; open String;; let i = ref 0;; let x = ref 0;; let str = ref "";; let rec sravnit' l k = for m=0 to (length l)-(length k) do if (sub l m (length k))=k then i:=(!i)+1 done; ;; for k=0 to (length text) do ( for j=1 to (length text)-k do let strin = (sub text k j) in ( sravnit' text strin; (if (!i)>(!x) then (x:=(!i); str:=strin)); i:=0) done;) done; ;; print_int (!x);; print_string (!str);;