0. #lang racket
1. (define mpr (mcons 10 (mcons 3 (mcons "yay" "test"))))
2.  
3. (set-mcar! mpr 30)
4.  
5. (set-mcdr! mpr (mcons 5 null))
6.  
7. (length mpr)

=>

length: contract violation

expected: list?

given: (mcons 30 (mcons 5 '()))