#!/usr/bin/perl -w

open (QUIN, ">quin");
open (LOG, ">log");
open (LOGLOG, ">loglog");
open (EXP, ">exp");
open (LINEAR, ">lin");
open (SQRT, ">sqrt");

$, = " ";
for ($i = 2; $i < 10000; $i++)
  {
    $j = $i**5;
    print QUIN "$i $j\n";
    $j = log($i)/log(2);
    print LOG "$i $j\n";
    $j = log(log($i)/log(2))/log(2);
    print LOGLOG "$i $j\n";
    $j = int(2**$i);
    print EXP "$i $j\n";
    $j = $i;
    print LINEAR "$i $j\n";
    $j = sqrt($i);
    print SQRT "$i $j\n";
  }

close (QUIN);
close (LOG);
close (LOGLOG);
close (EXP);
close (LINEAR);
close (SQRT);