;;@ignore
;; ??<name>
(define (simple-segment? datum)
(and (symbol? datum)
(let ((as-list (string->list (symbol->string datum))))
(and (>= (length as-list) 2)
(eqv? #\? (first as-list))
(eqv? #\? (second as-list))))))