my$c="a";my$i;{$^a~~/v/??s/$/ {$c x$i}/!!++$i|s:g/$$/$c/;++$c}for $_="",get.comb;.say