1 2 3 4 5 6
(* * UPEM / L3 / Functional programming / Project: URM * Pacien TRAN-GIRARD, Adam NAILI *) val read_prgm : (string list -> 'a list) -> string -> 'a list