;;@ignore ;; ?<name> -> <name> (define (simple-segment:name datum) (if (eqv? datum '??) #f (string->symbol (string-tail (symbol->string datum) 2))))