> (define a 2)
> (set! a 3)
> a
3
> (define a 4)
> a
4
> (define p (cons 1 2))
> p
(1 . 2)
> (set-car! p 3)
> p
(3 . 2)
> (set-cdr! p 4)
> p
(3 . 4)
> begin
[image] begin: bad syntax in: begin
> (begin (+ 2 3) (- 5 6))
-1
> (display p)
(3 . 4)
> (read)
abc
abc
> (read)
124
124
> (f 5)
510
> a
0
> (sum 5)
5
> a
5
> (sum 10)
15
> a
15
> a
0
> (sum 10)
[image] [image] a: undefined;
 cannot use before initialization
> a
0
> (sum 10)
10
> (sum 10)
10
> (sum 10)
10
> (sum 10)
10
> (sum 10)
10
> (sum 10)
20
> (sum 10)
30
> (make-account 100)
#<procedure:...eme/mutation.scm:13:2>
> (define account (make-account 100))
> account
#<procedure:...eme/mutation.scm:13:2>
> (account 0)
100
> (account 20)
120
> (account 0)
120
> (account 50)
170
> (account -200)
Insufficient funds!
170
> (account -150)
20
> 
> p
#0=(7 5 . #0#)
> (car p)
7
> (cadr p)
5
> (caddr p)
7
> (cadddr p)
5
> (length p)
[image] [image] user break
> (memv 7 p)
#0=(7 5 . #0#)
> (memv 5 p)
#0=(5 7 . #0#)
> (eqv? (cddr p) p)
#t