(trace-define member-?*
(lambda (ls)
(cond
[(not (list? (car ls))) (cond
[(null? ls) #f]
[(equal? (car ls) '?) #t]
[else (member-?* (cdr ls))])]
[else (member-?* (car ls))])))

is what big plays looks like, code took me like 40 minutes for an ass easy program, you should listen to j-dilla