#!/usr/local/bin/perl5

$i=@ARGV;
if (($i != 1)||($ARGV[0]==0))
  {
  die "usage: square [integer]\n";
  }
for ($j=0; $j <= $ARGV[0]; $j++)
  {
  print($j ." ". $j*$j. "\n");
  }