Array.iter (fun parameter ->
	if Filename.check_suffix parameter ".txt" then
	begin
		print_string "Loading ";
		print_string parameter;
		print_endline " ok";
	end 
	else if parameter.[0] = '-' then
	begin
		print_endline ("option " ^ parameter);
	end
) Sys.argv;;