;;;  Scanner Test (eval must just return its argument)
;;;
;;;  File:		test-scanner.in
;;;  Author:		course
;;;  Version:		1

9

009	; Should be 9

hi	; Should be HI

HI

01x+=y		; Should be 01X+=Y

!@#$%^&*_-+=~{}:<>.?/	; This is ONE symbol

`	; Should be error

"	; Should be error

\	; Should be error

,	; Should be error

[	; Should be error

(1 2 3 4)

(1 2 (3 4) (5 6 (7 8)) (9 10) 11 12)

(+ 1 (* 5 x) (* 3 (expt x 2)))

|hi|	; Should be hi

hello-|there|		;Should be HELLO-there

||09	; Should be 09

09||	; Should be 09

0||||9	; Should be 09

|,;\"`'()[]|	; Should be ,;\"`'()[]

|two
lines		
|		; Should print two on lines

+

+009	; Should be 9

-

-009	; Should be -9


(1 2 3 4)

(1 2 3 . 4)

(1 . 2)

x.y	; Should be X.Y

x.	; Should be X.

.y	; Should be .Y

||.	; Should be .

.||	; Should be .

'1	; Should be (QUOTE 1)

#'2	; Should be (FUNCTION 1)

||#	; Should be #

x#	; Should be X#

#x	; # should be error followed by X

(1 2 (3 4 (5 6 . 7) 8 9) . 10)

(1 2 '(3 4) #'(5 6) 7)

(a b (c d (e f . g) h i) . j)

(a b '(c d) #'(e f) h)

(1]

(((a]

(1 2 (3 4 (5 6 . 7]

This-symbol-is-a-very-looooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong-symbol-and-should-cause-an-error-and-be-split-in-two

|Should be error as EOF ends this would be symbol