#!/usr/bin/perl

# require 'Annoying.pm';
# Annoying->import ();

use Date::Annoying;

$annoy = Date::Annoying->new(%Date::Annoying::interesting_days);
$annoy2 = Date::Annoying->new(%Date::Annoying::interesting_days);
$annoy2->shopping(1);

unless ($annoy && $annoy2) {
  die "Couldn\'t construct annoying date objects.\n";
}

for ($i = 1; $i <= 365; $i++) {
  print "$i\t", $annoy->date_julian($i), "\t", $annoy2->date_julian($i), "\n";
}

exit 0;
