add set-car! set-cdr! function