(define (quetoca? nombre)
(if (member? nombre
'(george ringo john paul))
(assoc nombre '((john piano) (paul bajo)
(george guitarra) (ringo bateria)))
(display "nacio otro beatle !")))
(define (pedido pan)
(if (member? pan
'(baguette ciabatta roscon milhoja))
'(ya viene !)
(se '(no hay) pan)))
|