let parse_fichier file =        (* fichiers a une seule lignes *)
        input_line (open_in file)