sub runcode {
  my @ret;
  while (@_) {
    my ($x, $c) = (shift, 1);
    $c++, shift while $_[0] eq $x;
    push @ret, "$c*$x";
  }
  return @ret;
}

##</code><code>##

# 78 chars
sub RC {
#123456789_123456789_123456789_123456789_123456789_123456789_123456789_12345678
 my@r;while(@_){my($x,$c)=(shift,1);$c++,shift while$_[0]eq$x;push@r,"$c*$x"}@r
}