; non-breaking hyphen

(define s (string-append "1000136650" (string #\x7db) "1"))

(display s) (newline)

(define (asciistr s)
  (map char->integer (string->list s)))

(display (asciistr s)) (newline)