gets;puts$<.read.sub /(\*-*\*-*\n|\*\n?|.)\K-/,?*