A tokenizer written in racket