#!/usr/bin/perl

#use warnings;
use strict;
my $i;
for ($i=0;$i<$ARGV[0];$i++)
{
my @new=sqrt($i);
my $new;
#print "$new[$i]","\n";
my $i;
my $new1;
#$new1 += $new[$i];
$new1=($new)[1];
#my $new2;
printf "$_";
printf "$new1";
#$new2=$new1+($new1)[$i];
#printf ("$new2");
}
 
