main = do
  s <- getLine
  li <- getLine
  let q = read li
  (dir,s1,s2) <- loop True "" ""
  putStrLn $ format dir s s1 s2

format True s s1 s2 = s1 ++ s ++ reverse s2
format False s s1 s2 = s2 ++ reverse s ++ reverse s1

{-
dir : 現在の向きが開始時点と同じときTrue
s1 : 開始時点の文字列の前に接続された文字列
s2 : 開始時点の文字列の後に追加された文字列の逆順
-}

loop dir s1 s2 = do
  q <- getLine
  if q !! 0 == '1' then loop (not dir) s1 s2 else
    if (q !! 2 == '1') == dir then loop dir (q !! 4 : s1) s2 else loop dir s1 (q !! 4 : s2)
