                                      relBase
                                      (newXs, output)
   where
    newCursorPosition =
      if newValPosition == position then position else position + 2
    newXs = take newValPosition xs ++ head input : drop (newValPosition + 1) xs
    newValPosition = xs !! arg1

  -- a -> out