link identity September 2, 1991; Ralph E. Griswold This file is in the public domain.
This procedure produces an "identity" value for types that have one.