Use pcase instead of c*r and assq