Source Code
(define (length-string-unit-part lenstr)
;; Returns the unit part of a length string
(let ((number-part (length-string-number-part lenstr))
(strlen (string-length lenstr)))
(if (equal? (string-length number-part) strlen)
""
(substring lenstr (string-length number-part) strlen))))