A generator of lexical analysers in Scheme