(define (string-numeric? s) (number? (string->number s)))