for (1..100){
   print "$_\n";
}