> (1 . 2)
[image] #%app: bad syntax in: (#%app 1 . 2)
> '(1 . 2)
(1 . 2)
> (car '(1 . 2))
1
> (cdr '(1 . 2))
2
> (car (cons 1 2))
1
> (cdr (cons 1 2))
2
> ()
[image] #%app: missing procedure expression;
 probably originally (), which is an illegal empty application in: (#%app)
> '()
()
> (cons '() 5)
(() . 5)
> '(1 . (2 . (3 . ())))
(1 2 3)
> (pair? (cons '() 5))
#t
> (list? (cons '() 5))
#f
> (list? (cons 5 '()))
#t
> '(1 . (2 . (3 . 4)))
(1 2 3 . 4)
> (list? '(1 . (2 . (3 . 4))))
#f
> (list 1 2 3)
(1 2 3)
> (list + 1 2)
(#<procedure:+> 1 2)
> '(+ 1 2)
(+ 1 2)
> (list + (* 3 4) (/ 5 6))
(#<procedure:+> 12 5/6)
> '(+ (* 3 4) (/ 5 6))
(+ (* 3 4) (/ 5 6))
> cadadr
#<procedure:mcadadr>
> (eq? (* 1 2) (* 2 1))
#t
> (eqv? "abc" "abc")
#t
> (eq? (cons 1 2) (cons 1 2))
#f
> (eqv? (cons 1 2) (cons 1 2))
#f
> (equal? (cons 1 2) (cons 1 2))
#t
> (equal? (list 1 2 3 4 5) (list (+ 0 1) (* 2 1) (+ 2 1) ((lambda (x) (* x x)) 2) (+ 2 3)))
#t
> (eqv? id id)
#t
> (eqv? (lambda (x) x) (lambda (x) x))
#f
> (equal? (lambda (x) x) (lambda (x) x))
#f
> (equal? (n+ 1) (n+ 2))
#f
> (equal? (n+ 1) (n+ 1))
#f
> (eq? (n+ 1) (n+ 1))
#f
> (length (list 1 2 3))
3
> (append (list 1 2) (list 3 4))
(1 2 3 4)
> (append (list 1 2) (list 3 4) (list 5 6 7))
(1 2 3 4 5 6 7)
> (append (list 1 2))
(1 2)
> (append)
()
> (reverse (list 1 2 3))
(3 2 1)
> (list-tail (list 1 2 3 4 5) 3)
(4 5)
> (list-ref (list 1 2 3 4 5) 3)
4
> (list-ref (list 1 2 3 4 5) 10)
[image] [image] mcdr: contract violation
  expected: mpair?
  given: ()
> (list-ref (list 1 2 3 4 5) -1)
[image] [image] mcdr: contract violation
  expected: mpair?
  given: ()
> (member 2 '(1 2 3))
(2 3)
> (member 5 '(1 2 3))
#f
> (member (cons 1 2) (list (cons 4 5) (cons 1 2) (cons 6 7)))
((1 . 2) (6 . 7))
> (memv (cons 1 2) (list (cons 4 5) (cons 1 2) (cons 6 7)))
#f
> (list (cons 4 5) (cons 1 2) (cons 6 7))
((4 . 5) (1 . 2) (6 . 7))
> 
define-values: assignment disallowed;
 cannot re-define a constant
  constant: length
  in module:top-level
> (length (list 1 2 3))
3
> 

> (list-tail (list 1 2 3 4 5) 3)
(4 5)
> (memv 2 '(1 2 3 4))
(2 3 4)
> (memv 2 '(1 2 3 4))
#t
> (memv 2 '(1 2 3 4))
(2 3 4)
> (memv 5 '(1 2 3 4))
#f
> (or #f #f 2 #f)
2
> (or #t 2)
#t
> (or #t 2)
#t
> (memv 5 '(1 2 3 4))
#f
> (from-to 1 10)
(1 2 3 4 5 6 7 8 9 10)
> (collect 1 100  (lambda (x) (* x 2)))
(1 2 4 8 16 32 64)
> (append '(1 2 3) '(4 5 6))
(1 2 3 4 5 6)
> (append '(1 2 3) '(4 5 6))
(1 2 3)
> (append '(1 2 3) '(4 5 6))
(1 2 3 4 5 6)
> (reverse '(1 2 3 4))
((((() . 4) . 3) . 2) . 1)
> (reverse '(1 2 3 4))
mcons: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 2
  given: 3
> (reverse '(1 2 3 4))
(1 2 3 4)
> (reverse '(1 2 3 4))
(4 3 2 1)
> (define l2 '(4 5 6))
> (define l (append '(1 2 3) l2))
> l2
(4 5 6)
> l
(1 2 3 4 5 6)
> (set-car! l2 7)
> l
(1 2 3 7 5 6)
> (reverse '(1 2 3 4))
mcar: contract violation
  expected: mpair?
  given: 4
> 
> (reverse '(1 2 3 4))
(4 3 2 1)
> (length (from-to 1 10000))
10000
> (length (from-to 1 10000))
10000
> (length (reverse (from-to 1 10000)))
10000
> (length (reverse (from-to 1 10000)))
user break