write(tolower(gsub("(?=[^a-zI]|InP)"," ",scan("stdin",""),,T)),T)