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"