;;@ignore ;; (?? <name> [optional: predicate]) (define (predicate-segment? datum) (and (list? datum) (> (length datum) 1) (eqv? (first datum) '??)))