let path filename =
    let lines = ref [] in
    let chan = open_in filename in

    try
        while true; do
            lines := input_line chan :: !lines
        done; []
    with End_of_file -> close_in chan;

    !lines;;

let naif texte path i=
    let n=String.length texte in
    let m =String.length path in
    for s=0 to n-m do
        if path = (String.sub texte s m) then
            (print_string "line : ";
             print_int(i);
             print_string " position : ";
             print_int(s+1);
             print_newline();)
    done;;

let main()=
    let filename = "list.txt" in
    let phrase   = "saudade" in
    let lines    = path filename in
    lines;;

main();;