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