let
anonymous = (
fun
x
->
raise (
Arg
.
Bad
(
"Bad argument : "
^ x)))