Scheme help

(define (penis)
    (define variable (read))
    (cond
      (= (string-compare variable "penis") 0) (display "son, that's a penis"))
      (= (string-compare variable "cock") 0) (display "son, that's a cock")
      (else (display "niggerpenis"))))
(penis)

Why does this code not work, /prog/?

>>14 is an idiot.

You can use the case construct. Something like:
(define (penis)
   (define variable (read))
   (case variable
      ((penis) (display ...))
      ...)))))))))))))