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/?

>>6
Fun fact: About 20 Haskell users post on /prog/ regularly. This makes about 70% of Haskell users.

/prog/ - the Haskell haven.