( format t "Hello World!" ) ( print (SETQ M '(1 (2 3) (4 (5) (6 7)))) ) ; => (1 (2 3) (4 (5) (6 7))) ( print (CDR (REVERSE (CAR (REVERSE (CDR M))))) ) ; => ((5) 4) ( print "***************************************" ) ( print ( / 3 2 ) ) ( print (CAR '(A B C)) ) ( print (CAR '((A B C))) ) ( print "***************************************" ) ( print (SETQ M '(1 2 (5 1) (3 (4 5) 6) (2 (4)))) ) ( print (CDR (CAR (CDR (REVERSE (CDR (CDR M)))))) ) ( print "***************************************" ) ( print (CDR '(1 2 3 4)) ) ; => the list (2 3 4) ( print "***************************************" ) ( print (CDR '(1)) ) ; => NIL ( print (CDR '((1))) ) ; => NIL ( print "***************************************" ) ( print (CDR '(1 (2))) ) ; => ((2)) ( print (CDR '((1) 2)) ) ; => (2) ( print (CDR '(1 2)) ) ; => (2) ( print "***************************************" ) ( print (CAR '(1 2)) ) ; => 1 ( print (CAR '((1) 2)) ) ; => (1) ( print (CAR '(1)) ) ; => 1 ( print (CAR '((1))) ) ; => (1) ( print "***************************************" ) ( print (CAR '(1 2 3 4)) ) ; => the atom/element 1 (not a list) ( print (CDR '(1 (2 3 4))) ) ; => the list ((2 3 4)) is a list with a list inside ( print (CAR '(1 (2 3 4))) ) ; => 1 ( print (CAR '((1 2 3) 4)) ) ; => (1 2 3) ( print "***************************************" ) ( print (CDR '(2 (3 (1) 2))) ) ; => ((3 (1) 2)) ( print (CAR (CDR '(2 (3 (1) 2)))) ) ; => (3 (1) 2) ( print (CDR (CAR (CDR '(2 (3 (1) 2))))) ) ; => ((1) 2)