let memq = mem_assq