write(which(strsplit(readChar("stdin",999),"")[[1]]=="Y")-1,"",1)