sub rle {
($c)=@_;my$i;map$c ne$_?("$i*$c",$i=1,$c=$_)[0]:++$i&&(),@_,!$_[-1]
}