@_=(split//),pop@_,print$_[$i<@_?$i++:0*($i=1)]for<>