This used to work in 2.01, but 2.02 outputs the wrong thing:

Cette programme-ci a fonctionné correctement avec 2.01; avec 2.02 non
plus:

	open Printf
	open List
	open String

	let udt = [1; 2; 3] ;;

	print_endline (concat " " (map (sprintf "foo%d") udt)) ;;
	print_endline (concat " " (map (fun s -> sprintf "foo%d" s) udt)) ;;

	iter (printf "foo%d") udt; print_newline () ;;
	iter (fun s -> printf "foo%d" s) udt; print_newline ()