#!/usr/bin/perl
use strict;
use utf8;
sub odai_pt15_467 {
my @args = @_;
foreach (@args) {
s/(.)\1+/sprintf("%s%d", $1, length($&))/ge;
}
@args
}
foreach ("あいうえお",
"ああいいうう",
"あいうあいう",
"ああああ",
"🐤🐤🐤🐤") {
print odai_pt15_467
$_, "\n"; }
IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugc3RyaWN0Owp1c2UgdXRmODsKYmlubW9kZSBTVERPVVQsICJ1dGY4IjsKYmlubW9kZSBTVERFUlIsICJ1dGY4IjsKCnN1YiBvZGFpX3B0MTVfNDY3IHsKICAgIG15IEBhcmdzID0gQF87CiAgICBmb3JlYWNoIChAYXJncykgewogICAgICAgIHMvKC4pXDErL3NwcmludGYoIiVzJWQiLCAkMSwgbGVuZ3RoKCQmKSkvZ2U7CiAgICB9CiAgICBAYXJncwp9Cgpmb3JlYWNoICgi44GC44GE44GG44GI44GKIiwKICAgICAgICAgIuOBguOBguOBhOOBhOOBhuOBhiIsCiAgICAgICAgICLjgYLjgYTjgYbjgYLjgYTjgYYiLAogICAgICAgICAi44GC44GC44GC44GCIiwKICAgICAgICAgIvCfkKTwn5Ck8J+QpPCfkKQiKSB7CiAgICBwcmludCBvZGFpX3B0MTVfNDY3ICRfLCAiXG4iOwp9Cg==