main=do
 s<-getLine
 getLine
 q<-lines<$>getContents
 let (t,l,r)=f q 0 ""(reverse s)
 let ans=if t==0 then l++(reverse r) else r++(reverse l)
 putStrLn ans
f[]t l r=(t,l,r)
f(q:qs)t l r
 |q=="1"=f qs(1-t)l r
 |(q!!2=='1')/=(t==1)=f qs t(q!!4:l)r
 |otherwise=f qs t l(q!!4:r)
