let usage =
let e = Sys.argv.(0) in
e^" [options] <file>\n"^
"Examples:\n"^
e^" -ibin -o foo bar translate the binary file bar to XML file foo\n"^
e^" -obin -o foo bar translate the XML file bar to binary file foo\n"^
e^" -gen bar generate code from file bar to bar.ml \n"^
e^" -gen -ibin bar generate code from binary file bar to bar.ml \n"^
e^" -gen -o foo.ml bar generate code from file bar to foo.ml\n"