let bad_args onarg = begin
if onarg <> "" then epf "Failed on argument `%s'!\n" onarg;
epf "Incorrect runtime arguments ! Run '%s --help' to see help.\n\n" av.(0);
let i = ref 0 in Array.iter (function x -> (epf "argument %d: <%s>\n" !i x ; i := !i+1)) av ;
end