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