Problem:
Score : 400 points

Problem Statement

Mr. Takahashi has a string s consisting of lowercase English letters.
He repeats the following operation on s exactly K times.

Choose an arbitrary letter on s and change that letter to the next alphabet. Note that the next letter of z is a.

For example, if you perform an operation for the second letter on aaz, aaz becomes abz.
If you then perform an operation for the third letter on abz, abz becomes aba.

Mr. Takahashi wants to have the lexicographically smallest string after performing exactly K operations on s.
Find the such string.

Constraints

1≤|s|≤10^5

All letters in s are lowercase English letters.

1≤K≤10^9

Input

The input is given from Standard Input in the following format:

s
K

Output

Print the lexicographically smallest string after performing exactly K operations on s.

Sample Input 1

xyz
4

Sample Output 1

aya

For example, you can perform the following operations: xyz, yyz, zyz, ayz, aya.

Sample Input 2

a
25

Sample Output 2

z

You have to perform exactly K operations.

Sample Input 3

codefestival
100

Sample Output 3

aaaafeaaivap

Solution in Haskell (GHC 7.10.3) (judge verdict: Accepted)

import           Control.Monad
import qualified Data.ByteString.Char8       as BS
import           Data.Char
import           Data.Maybe
import qualified Data.Vector.Unboxed         as V
import qualified Data.Vector.Unboxed.Mutable as VM

readInt = fst . fromJust . BS.readInt
getInt = readInt <$> BS.getLine

main = do
  s <- BS.getLine
  k <- getInt

  let n = BS.length s
  v <- VM.new n
  VM.write v 0 'a'

  let solve i j | i == (n-1) = do
                    VM.write v 0 'a'
                    let c = BS.index s i
                        c' = if ord c + j <= ord 'z'
                             then chr $ ord c + j
                             else chr $ (j - (ord 'z' - ord c) - 1) `mod` 26 + ord 'a'
                    VM.write v i c'

                | otherwise = do
                    let c = BS.index s i
                        d = ord 'z'  - ord c + 1
                    if c /= 'a' && d <= j
                      then do VM.write v i 'a'
                              solve (i+1) (j-d)
                      else do VM.write v i c
                              solve (i+1) j

  solve 0 k

  v' <- V.freeze v
  putStrLn $ V.toList v'