quotation.sst

'#t => #t
'#f => #f

'0 => 0
'0.0 => 0.0

'#\a => #\a
'"" => ""
'"abc" => "abc"

'() => #null
'#null => #null
'(1) => (cons 1 #null)
'(1 . 2) => (cons 1 2)

'#u8() => #u8()
'#u8(0 1 2 127 128 253 254 255) => #u8(0 1 2 127 128 253 254 255)

'#() => #()
'#(#null #t #f 0 0.0 #\a a "abc" () #u8() #()) => #(#null #t #f 0 0.0 #\a a "abc" () #u8() #())




'#t => #t
''#t => '(quote #t)
'('#t) => '((quote #t))

'() => '()
''() => '(quote ())
'('()) => '((quote ()))




`#t => #t
``#t => '(quasiquote #t)
`(`#t) => '((quasiquote #t))

`() => '()
``() => '(quasiquote ())
`(`()) => '((quasiquote ()))




`,'() => '()
`'`() => '(quote (quasiquote ()))

`(,@'()) => '()
`(,@`()) => '()

`,#t => #t
``#t => '(quasiquote #t)
`(`#t) => '((quasiquote #t))

`,#t => #t
`,`#t => #t
`(,@`#t) => #t
`(,@#t) => #t




`((1 ,@'(3) 2)) => '((1 3 2))
`((1 ,@'(3) 2)) => (list (append (list 1) (list 3) (list 2)))

`((1 ,@'(3 4) 2)) => '((1 3 4 2))
`((1 ,@'(3 4) 2)) => (list (append (list 1) (list 3 4) (list 2)))

`((1 (x) 2)) => '((1 (x) 2))
`((1 (,(+ 0 3)) 2)) => (list (list 1 (list (+ 0 3)) 2))


``,1 => '(quasiquote (unquote 1))
``,,1 => '(quasiquote (unquote 1))
``(,,1) => '(quasiquote ((unquote 1)))
`(`(,(,1))) => '((quasiquote ((unquote (1)))))

`(1 ```,,@,,@(list (+ 1 2)) 4) => !fixme '(1 ```,,@,3 4)