write(tolower(gsub("(?=[^Ia-z]|InP)"," ",scan("stdin",""),,1)),1)