use strict; use warnings;
# #include <math.h>
# #include <stdio.h>

# #define N 100
my $n=100;

# int len = floor(10 * N/3) + 1;
my $len = 1 + int (10 * $n / 3);

# int A[len];
my @a;
$#a=$len-1; #? -1 ????

# for(int i = 0; i < len; ++i) {A[i] = 2;}
for (my $i = 0; $i < $len; $i++){ $a[$i]= 2; }
# int nines    = 0;
my $nines = 0;

# int predigit = 0;
my $predigit = 0;

# for(int j = 1; j < N + 1; ++j) {
for (my $j = 1; $j < $n + 1; ++$j){
    # int q = 0;
    my $q = 0;
    # for(int i = len; i > 0; --i) {
    for(my $i = $len; $i > 0; $i--){
        # int x  = 10 * A[i-1] + q*i;
        my $x = 10 * $a[$i-1] + $q * $i;
        # A[i-1] = x % (2*i - 1);
        $a[$i-1] = $x % (2 * $i - 1);
        # q = x / (2*i - 1);     }
        $q = $x / (2 * $i - 1);
    }
    # A[0] = q%10;
    $a[0]=$q%10;
    # q  = q/10;
    $q=$q/10;
    # if (9 == q) {   ++nines;}
    if (9 == $q){ ++$nines;   }
    # else if (10 == q) {
    elsif(10 == $q){
          # printf("%d", predigit + 1);
          printf("%d", $predigit + 1);
          # for (int k = 0; k < nines; ++k) {  printf("%d", 0); }
          for (my $k = 0; $k < $nines; $k++){ printf("%d", 0);}
          #  predigit, nines = 0;
          $predigit = $nines = 0;
    # }
    }
    # else {
    else{
         # printf("%d", predigit);
         printf("%d", $predigit);
         #  predigit = q;
         $predigit = $q;
         # if (0 != nines) {
         if(0 != $nines){
              # for (int k = 0; k < nines; ++k) {
              for (my $k = 0; $k < $nines; $k++) {
                  # printf("%d", 9);
                  printf("%d", 9);
              # }
              }
              # nines = 0;
              $nines = 0;
        }
    }
}
# printf("%d", predigit);
printf("%d", $predigit);