(define (simple-var:name datum) (if (eqv? datum '?) #f (string->symbol (string-tail (symbol->string datum) 1))))