._.

> (define (passes-basic-criteria? pattern)
    (and (earthly-living-form? pattern)
         (human-species? pattern)
         (alive? pattern)
         (not (in-critical-health-condition? pattern))
         (has? pattern 'x-chromosome 2)
         (has? pattern 'y-chromosome 0)
         (has? pattern 'vagina 1)
         (has? pattern 'penis 0)
         (has? pattern 'breast 2)
         (has-attractive? pattern 'brain)
         (has-tolerable? pattern 'skin)))
(define (select-pattern patterns)
    (let loop ([qualified (filter passes-basic-criteria? patterns)])
      (case (length qualified)
        [(0) 'forever-alone]
        [(1) (approach (car qualified))]
        [else (if (toss-coin)
                  (approach (car qualified))
                  (loop (cdr qualified)))])))
(select-pattern all-girls-I-know)
'forever-alone

>>4
But he read SICP! I'm sure that will get him into devry. Or at the very least, it will get him a job as a cashier at burger king.