Something

1.

(define myMember?
  (lambda (x L)
    (cond ((and (null? x) (null? L)) #t)
          ((null? L) #f)
          ((equal? x (car L)) #t)
          (else (myMember? x (cdr L))))))

2.

(define increasing?
  (lambda (L)
    (cond ((or (null? L)
               (null? (cdr L))) #t)
          ((< (car L) (cadr L)) (increasing? (cdr L)))
          (else #f))))