main=f 0
f i=do
s<-getLine
let n=sum[i|i<length s]
putChar$s!!n
f$n+1