title: I need some guidance on rewriting a regular expression in racket/scheme. I am trying to do this r' [_A-Za-z][_A-Za-z0-9]* '
body: <p>CODE IN RACKET: </p>
  
  <pre><code>(:: (:seq(:or(:* "_")(:+ upper-case)(:+ lower-case)) (:* "_")(:* upper-case)(:* lower-case)(:* digit))) (token-SYM lexeme)
  </code></pre>
  
  <p>This regular expression does not seem to work for test cases such as:</p>
  
  <pre><code>_ASFFDsfafg_03043435  or  adfdSFISDFIOON_asfDFOIN3055
  </code></pre>
  
  <p>it seems to not work correctly with the underscore, it seems to think anytime it gets an underscore its the start of a new token. 
   my program is a lexer scanning each character and the regular expression is to define behavior for a  SYM token  which is a symbol token.  </p>