#!perl -p
$t=$_|=$t;1while s/k /kk/