(define p (cons 48 48))
(set-cdr! p 65)
(putchar (car p))
(putchar (cdr p))
(putchar 10)

;;;options: -l min
;;;expected:
0A

options: -l min
expected:
(define p (cons 48 48))
(set-cdr! p 65)
(putchar (car p))
(putchar (cdr p))
(putchar 10)

0A
