let bad_args () = begin 
  epf "Incorrect runtime arguments ! Run '%s' 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