(let ((mom-path (cons 'dad '())) (dad-path (cond ((and #f #f) (cons 'mom #f)) ((and #t (not #f)) (cons 'mom #f)) ((and #f (not #f)) (cons 'dad #f)) (else #f)))) (cond ((and mom-path dad-path) (cons 'mom mom-path)) ((and mom-path (not dad-path)) (cons 'mom mom-path)) ((and dad-path (not mom-path)) (cons 'dad dad-path)) (else #f)))