let
memq = mem_assq