Had I more time, I would have included all the phases. But here's a little something for the Wiccans around..
/me wishes his ascii art skills were somewhat close to Blop's (see below)

#!/usr/bin/perl -w
use strict;

     my @s
    =qw'
  4810
 7150
 2560
 7560
  8584
    2080
      8320

      6984
        8436
         7085
          2560
          7920
          8214
          7150
        8080
      3168

2368 6500 8880
2304 7178 7475
2560 8712 7474
2080 9520 7560
7992 7020 2640
';my @k = qw '
J A P H';my $i
= 0;my $m = @k
;foreach (@s){
$i = 0 if $i==
$m;print chr (
$_ / ord($k[$i
  ]));$i++;}
[download]

_14k4 - perlmonks@poorheart.com (www.poorheart.com)