(define alist (list '(p . a) '(q . b) '(r . c) '(s . d)))
(check (and (eq (cossa alist 'b) 'q)
(eq (cossa alist 'd) 's)))