let usage = Printf.sprintf "Usage : %s <list>\n" Sys.executable_name