(include "lib/core.scm")
(include "lib/pair.scm")
(include "lib/string.scm")
(include "lib/frb.scm")
(include "lib/symbol.scm")
(eq? 'thingy (string->symbol "thingy"))
(printn the-symbol-table)
(let ((s0 (string->symbol "abc"))
(s1 (string->symbol "def"))
)
(printn (symbol->index 'thingy))
(printn (symbol->index s0))
(printn (symbol->index s1))
)