#!/usr/bin/perl

for(my $i=0;$i<4000;$i++)
{
  print $i%10;
}