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