Problem:
MathJax.Hub.Config({ tex2jax: { inlineMath: [["$","$"], ["\\(","\\)"]], processEscapes: true }});

Transformation

Write a program which performs a sequence of commands to a given string $str$. The command is one of:

print a b: print from the a-th character to the b-th character of $str$

reverse a b: reverse from the a-th character to the b-th character of $str$

replace a b p: replace from the a-th character to the b-th character of $str$ with p

Note that the indices of $str$ start with 0.

Input

In the first line, a string $str$ is given. $str$ consists of lowercase letters. In the second line, the number of commands q is given. In the next q lines, each command is given in the above mentioned format.

Output

For each print command, print a string in a line.

Constraints

$1 \leq $ length of $str \leq 1000$

$1 \leq q \leq 100$

$0 \leq a \leq b < $ length of $str$

for replace command, $b - a + 1 = $ length of $p$

Sample Input 1

abcde
3
replace 1 3 xyz
reverse 0 2
print 1 4

Sample Output 1

xaze

Sample Input 2

xyz
3
print 0 2
replace 0 2 abc
print 0 2

Sample Output 2

xyz
abc

Solution in Haskell (judge verdict: Accepted)

import Control.Applicative
import Control.Monad
import Data.Array
import Data.Array.ST
import Data.Char
import Data.List
import qualified Data.Map as M
import qualified Data.Set as S
import Text.Printf

readInts :: IO [Int]
readInts = map read . words <$> getLine

doOp :: Array Int Char -> IO (Array Int Char)
doOp ary = do
  (op:a0:b0:rs) <- words <$> getLine
  let a = read a0 :: Int
  let b = read b0 :: Int
  case op of
    "print"   -> do
      forM_ [a..b] $ \i -> do
        putChar $ ary ! i
      putChar '\n'
      return ary
    "reverse" -> do
      return $ ixmap (bounds ary) f ary
       where
        f i
          | i < a     = i
          | i > b     = i
          | otherwise = a + b - i
    "replace" -> return $ runSTArray $ do
      let p = listArray (a,b) (head rs) :: Array Int Char
      mary <- thaw ary
      forM_ [a..b] $ \i -> do
        writeArray mary i (p!i)
      return mary

main :: IO ()
main = do
  str <- getLine
  let ary = listArray (0, length str - 1) str
  n <- readLn
  void $ foldM (\acc _ -> doOp acc) ary [1..n]