(module underscore-allowed mzscheme
  (provide underscore-allowed) 
  (define underscore-allowed '(any number string variable)))