4 options := o @ !options
8 ^ (Filename.basename Sys.executable_name)
9 ^ " [options] file.lus node"
12 let extra_arguments = ref [] in
13 Arg.parse (Arg.align !options)
14 (fun s -> extra_arguments := s :: !extra_arguments)
16 List.rev !extra_arguments