#!/usr/bin/perl

use lib qw(..);
use chord;
learn_chords( ZZ => "NN3555");
print htmlchords({dir=>"P"},qw(A B C D ZZ));