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