(define (replace-it list search alt)
    (mapcar (LAMBDA (cur) 
        ((COND
            ((= cur search) (alt))
            (ELSE (cur))
        ))
            ) (list)
    )
)