import Control.Applicative ((<$>))

getStageName :: String -> Int -> Int -> String
getStageName s t u
    | t' == u'  = (take t' s) ++ (drop (t' + 1) s)
    | otherwise = (take t' s) ++ (take (u' - t' - 1) $ drop (t' + 1) s) ++ (drop (u' + 1) s)
    where [t', u'] = [min t u, max t u]

main = do
    [s, t, u] <- words <$> getLine
    putStrLn $ getStageName s (read t) (read u)