title: Scheme Trying to check if a word in the list
body: <p>I have a few functions.</p>
  
  <pre><code> (define adjs '(black brown fast hairy hot quick red slow))
      (define adj?
          (lambda (a) (if (member a adjs) #t #f)
      )
  
  
      (define OK
          (lambda (x)
              (cond 
                  ((equal? x()) #t)
                  ((equal? adj? (car x)) OK(cdr x))
                  ((else x            #f))
              )
         )
  )
  </code></pre>
  
  <p>The function adj? is checking to see if the input is part of the list of adjectives in adjs.</p>
  
  <p>What I am trying to do with the OK function is the user will input a list and have that list run through adj? to see if it is part of the adjs list.</p>
  
  <p>What happens when I run the function is I get an error return that says I entered in "X" amount of arguments when the function only expected two. Why?</p>