let last = Array.length Sys.argv - 1 in let print_args first = (* no white space before the first argument *) if first <= last then print_string Sys.argv.(first); for i = first + 1 to last do print_char ' '; print_string Sys.argv.(i) done in if last > 0 && Sys.argv.(1) = "-n" then print_args 2 else begin print_args 1; print_newline() end;;