:1
/^\.[IP]P$/N
s/^\.[IP]P\n\(\.[ITP]P\)$/\1/
/^\.PP$/b1