title: Scheme list modification
body: <p>I am trying to write a scheme function that takes a list of the form:</p>
  
  <pre><code>((#f ((1 1) (2 1)))
   (#f ((1 3) (5 1)))
   (#f ((1 4) (7 1)))
  )
  </code></pre>
  
  <p>and removes all the #f to give a list like:</p>
  
  <pre><code>( ((1 1) (2 1))
    ((1 3) (5 1))
    ((1 4) (7 1))
  )
  </code></pre>
  
  <p>I have tried the following code but cannot get it to work:</p>
  
  <pre><code>(define meth
    (lambda lst
      (if (equal? (cdr lst) '())
        (cdr (car lst))
        (cons (list-ref (car lst) 1) (meth (cdr lst))))))
  </code></pre>
  
  <p>Does anyone know how to do this? Thanks.</p>