;;; -*- mode:scheme -*-

(let ((x0 (prim:cons 4 5)) (x1 (prim:write x0))) x1)