anchor.diff:      (affirm (teq? (list (string->symbol "foo")) (lex "foo"))
               (teq? (list (string->symbol "foo-bar")) (lex "foo-bar"))
               (teq? (list (string->symbol "foo-bar!")) (lex "foo-bar!"))
  -            (teq? (list (string->symbol "foo-\"bar")) (lex "foo-\"bar"))))
  +            (teq? (list (string->symbol "foo-\"bar")) (lex "foo-\"bar"))
  +            (teq? (list (string->symbol "-")) (lex "-"))
  +            (teq? (list (string->symbol "-.e")) (lex "-.e"))
  +            (teq? (list (string->symbol "//\\//")) (lex "//\\//"))))
   
     (it "lexes keys"
       (affirm (teq? (list (string->key "foo")) (lex ":foo"))
  
positive.code:   (it "lexes handles comments"
      (affirm (teq? '() (lex "; foo bar"))
              (teq? '(foo) (lex "; foo bar\nfoo"))))
  )
  
negative.code:   (it "lexes strings"
      (affirm (teq? '("foo") (lex "\"foo\""))
              (teq? '("\"foo\"") (lex "\"\\\"foo\\\"\""))
              (teq? '("A") (lex "\"\\65\""))
              (teq? '("A") (lex "\"\\x41\""))
              (teq? '("foo\nbar") (lex "\"foo\n bar\""))
              (teq? '("foo\nbar") (lex "   \"foo\n    bar\""))
              (teq? '("foo\n   bar") (lex "   \"foo\n   bar\""))))
  