use utf8;
binmode $_,':utf8' for STDIN,STDOUT;
$_ = <>;
while(s/^(.*?)(ｗ+)//){
    $l = length($2);
    $m = $l, @r = () if $m < $l && length($1);
    push @r, $1 if $m == $l;
}
print join $/, @r;