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