#! perl -slw
use strict;


my $i = 3;
my $n = 1000;

loop:

print $n +4;    #- 12;
print $n +8;    #-  8;
print $n +12;   #-  4;
print $n +16;   #-  0;

$n += 16;

goto loop if --$i;