my $anchor = @ARGV ? '' : '^';
printf "%d\n", $_ = '1';
do {
    my $new;
    my ( $n ) = /^(\d)/o;
    while ( $_ ) {
        my $c = 0;
        $c++ while s/$anchor\s?$n\s?//;
        $new .= "$c $n " if $c;
        ( $n ) = /^(\d)/o;
    }
    print $_ = $new;
} until ( <STDIN> =~ /\S/ );