external identity : '-> 'a = "%identity"