main=f 0
f i=do s<-getLine;let n=sum[i|i<length s]in putChar(s!!n)>>f(n+1)