(let ((mom-path (cons 'dad '()))
      (dad-path
        (let ((mom-path #f) (dad-path #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)))))
  (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)))