#!/usr/bin/perl

use lib qw(..);
use chord;
learn_chords( z0 => "NN3555", z1 => "N 10 10 8 0 10", 
       z2 => "NN3443", z3 => "NN223");
print htmlchords({dir=>"P"},qw(A B C D z0 z1 z2 z3));