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