(in-package :fwoar.string-utils)

(defun insert-at (position item string)
  (concatenate 'string
               (subseq string 0 position)
               (string item)
               (subseq string position)))

(defun insert-where (predicate item string)
  (insert-at (position-if predicate string)
             item
             string))