#!/usr/bin/perl -w
#### LOOP-TEST
####    VERSION: 1 (21 June 2004)
####    PURPOSE: The most confusing way imaginable to ...
####             Well, for one thing, it provides experience
####                with Perl for loop

############## LIBRARIES AND PRAGMAS ################
  use strict;

###################### FILES ########################
# none 

#################### CONSTANTS ######################

  my $LF = "\n";   # Line feed (like return or enter)
  my $tab = "\t";  # tab

#################### VARIABLES ######################

  my $i;           # Mystery variable: you guess its function
  my $old_i;       # Previous version of mystery variable
  my $n;           # Another mystery variable

################### MAIN PROGRAM ####################

  $old_i = 0;
  $n = 1;

  for ($i = 1; $i <= 56;  $i = $i + $n) {
      $n = $n + 1;
      print $n - 1, $tab, $i + $old_i, $LF;
      $old_i = $i;}
