b=strsplit(readLines("stdin"),"")[[1]] p=b[1] cat(b[bp]," ",sep="")