sub ikei {
  my ($n, $m) = @_;
  use integer;
  my $q = $n / $m;
  my $r = $n % $m;
  return ($q+1) x $r, ($q) x ($m-$r);
}