(let* ((string-length (length string))
(complete-group-count (truncate string-length 3))
(remainder (nth-value 1 (truncate string-length 3)))
(let* ((string-length (length string))
(complete-group-count (truncate string-length 3))
(remainder (nth-value 1 (truncate string-length 3)))