#!/usr/bin/perl

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