Paste on 2021-03-03T01:01:51

(import chicken.irregex)
(define orig ##sys#string->number)
(define (##sys#string->number str . rest)
  (apply orig
         (irregex-replace/all "_" str "")
         rest))