/*
			*/
		
        ;;;
		
			'
			'
		
		
			"
			"
		
        
			`
			`
		
        
			[
			]
		
        
			{
			}
		
        
			![
			]
		
        
		(
		)
		:
        
        #_<
        >_#
        
        #_
		)
		(
		.
		,
		;
		^
		@
		:
		|
		=
		>=
		<=
		<>
		>
		<
		+
		/
		-
		*
		
		    false
		    true
		    database
		    it
		    undef
            
            define
            class
            enddefine
            dlocal
            lvars
            vars
            slot
            instance
            endinstance
            method
		    syntax
            biginteger
            boolean
            complex
            ddecimal
            decimal
            device
            ident
            integer
            intvec
            key
            nil
            pair
            procedure
            process
            prologterm
            prologvar
            ratio
            ref
            section
            string
            termin
            vector
            word
            
            if
            forevery
            endforevery
            then
            switchon
            endswitchon
            case
            elseif
            else
            endif
            for
            repeat
            from
            till
            step
            while
            endfor
            endrepeat
            endwhile
            times
            to
            do
            by
            in
            return
            
            and
            or
            matches
            quitloop
            goto
            uses
            trace
            cons_with
            consstring
            
            interrupt
            partapply
            consclosure
            max
            add
            remove
            alladd
            quitif
            copydata
            copytree
            copylist
            length
            hd
            tl
            rev
            shuffle
            oneof
            sort
            syssort
            random
            readline
            not
            pr
            nl
            present
            subword
            member
            length
            listlength
            datalength
            mishap
            last
            delete
            valof
            dataword
            
            isnumber
            isinteger
            islist
            isboolean
		
	
    
        
			[
			]
		
        
			{
			}
		
        
			![
			]
		
		
			'
			'
		
		
			"
			"
		
        
			%
			%
		
		
			/*
			*/
		
        ;;;
		=
		==
        ^
		?
	
    
    
    
        :
		*