#!/usr/bin/perl

use evgen;

$px = 0;
$py = 0;
$pz = 100;
$x0 = 30;
$y0 = 0;
$z0 = 170;
$type = "pi+";

$evno_max = 1000;
output_header();
for ($evno = 1; $evno <= $evno_max; $evno++) {
    output_event_header();
    output_event($px, $py, $pz, $x0, $y0, $z0, $type);
    output_event_footer();
}
output_footer();

exit;
