#!/usr/bin/perl -w
# output format
format OUT =
@>>>>>>>>>>>>>>>>>>>@>>>>>>>>>>>>>>>>>>>
$x, $y
.
open(IN, "input.inp");
open(OUT,">$ARGV[0]");
open(OUT2,">$ARGV[0].history");
print OUT "                 0.1                 0.1\n";
print OUT "                 0.2                 0.2\n";
print OUT "                 0.3                 0.3\n";
# read input file
$k=0;
while (<IN>){
    $values{$k} = [ split ];
    $k++;
}

@x = (4..10);

$scalar= 0.1;

@x = map { $_ * $scalar } @x;

$y=a*$x^b

write OUT;
print OUT2 "$x $y\n";

close(IN);
close(OUT);
close(OUT2);

print "N o r m a l\n";