#!/usr/bin/perl

use lib qw(..);
use chord;
my $l = local_chords( z0 => "NN3555", z1 => "N 10 10 8 0 10", 
       z2 => "NN3443", z3 => "NN2234");
print htmlchords({local_chords=> $l,dir=>"P"},qw(A B C D z0 z1 z2 z3));
print "\n\nwithout local chords...\n\n";
print htmlchords({dir=>"P"},qw(A B C D z0 z1 z2 z3));