#!/usr/bin/perl -w

my $low = 0x01;
my $high = 0xEF;


sub burst_pattern0 {
    my $buf;

    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);

    return $buf;
}

sub burst_pattern1 {
    my $buf;

    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);

    return $buf;
}

sub burst_pattern2 {
    my $buf;

    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xaa).chr(0xaa).chr(0xaa).chr(0xaa);
    $buf .= chr(0x55).chr(0x55).chr(0x55).chr(0x55);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xa5).chr(0xa5).chr(0xa5).chr(0xa5);
    $buf .= chr(0x5a).chr(0x5a).chr(0x5a).chr(0x5a);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);

    return $buf;
}

sub burst_pattern3 {
    my $buf;

    $buf .= chr(0x01).chr(0x23).chr(0x45).chr(0x67);
    $buf .= chr(0x89).chr(0xab).chr(0xcd).chr(0xef);
    $buf .= chr(0x76).chr(0x54).chr(0x32).chr(0x10);
    $buf .= chr(0xfe).chr(0xdc).chr(0xba).chr(0x98);
    $buf .= chr(0xde).chr(0xad).chr(0xbe).chr(0xef);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0x00).chr(0x00).chr(0x00).chr(0x00);
    $buf .= chr(0xff).chr(0xff).chr(0xff).chr(0xff);

    return $buf;
}


my $buf = '';

for ($i=0; $i<8*32; $i++) {
    if (($i & 07) == 0) {
	$buf .= burst_pattern0();
    }
    elsif (($i & 07) == 1) {
	$buf .= burst_pattern1();
    }
    elsif (($i & 07) == 2) {
	$buf .= burst_pattern2();
    }
    elsif (($i & 07) == 3) {
	$buf .= burst_pattern3();
    }
    elsif (($i & 07) == 4) {
	$buf .= burst_pattern0();
    }
    elsif (($i & 07) == 5) {
	$buf .= burst_pattern1();
    }
    elsif (($i & 07) == 6) {
	$buf .= burst_pattern2();
    }
    elsif (($i & 07) == 7) {
	$buf .= burst_pattern3();
    }
}

print $buf;