data Dice = Dice {top :: Int,
                  south :: Int,
                  east :: Int,
                  west :: Int,
                  north :: Int,
                  bottom :: Int}
fromList :: [Int] -> Dice
fromList [t,s,e,w,n,b] = Dice t s e w n b

rotate :: Dice -> Char -> Dice
rotate d 'N' = d {bottom = north d,
                  north = top d,
                  top = south d,
                  south = bottom d}
rotate d 'S' = d {bottom = south d,
                  south = top d,
                  top = north d,
                  north = bottom d}
rotate d 'E' = d {bottom = east d,
                  east = top d,
                  top = west d,
                  west = bottom d}
rotate d 'W' = d {bottom = west d,
                  west = top d,
                  top = east d,
                  east = bottom d}

rotateAll :: Dice -> [Char] -> Int
rotateAll d [] = top d
rotateAll d (op:ops) = rotateAll (rotate d op) ops

main :: IO ()
main = do
  d <- fmap (fromList . map read . words) getLine
  ops <- getLine
  print $ rotateAll d ops