program kubelis_su_skaiciais;
  { 119 u‘davinys }

  procedure versk (var sien1, sien2, sien3, sien4 : integer);
  { paver‡ia kubel }
    var x : integer;
  begin
     x := sien1;        { ver‡iant }
     sien1 := sien2;    { pasikei‡ia }
     sien2 := sien3;    { tik keturi— }
     sien3 := sien4;    { sieneli— pad‚tys }
     sien4 := x
  end;

  var a, b, c, d, e, f,  { pradiniai duomenys - skai‡iai ant sieneli— }
      virsutine, apatine,
      priekine, galine,
      kairioji, desinioji: integer;
      r: char;            { pradiniai duomenys - komand— seka }
begin
  readln (a, b, c, d, e, f);   { skai‡iai ant sieneli— }
  virsutine := a;   apatine := b;   priekine := c;
  galine := d;  kairioji := e;  desinioji := f;
  while not eoln do
    begin
      read (r);
      case r of
        'K': versk (virsutine, desinioji, apatine, kairioji);
        'D': versk (virsutine, kairioji, apatine, desinioji);
        'P': versk (galine, apatine, priekine, virsutine);
        'A': versk (galine, virsutine, priekine, apatine)
      end
     end;
  writeln (virsutine)
end.


