let
lookup (h:(
'
a,
'
b) t) x = h
#
lookup x