let
list () =
run_and_parse
Lexers
.blank_sep_strings
"%s list | cut -d' ' -f1"
ocamlfind