9 lines
137 B
Scheme
9 lines
137 B
Scheme
;;; -*- mode:scheme -*-
|
|
|
|
(let ((x0 (prim:cons 4 2))
|
|
(x3 (prim:write x2))
|
|
(x2 (prim:* 3 x1))
|
|
(x1 (prim:cdr x0)))
|
|
x3)
|
|
|