let identity ?name () = of_function ?name ident