#!/usr/bin/perl
use strict;use warnings;
sub J(@_){return@_ if($#_==3);
H(@_,'J')}sub A(@_){return@_
if($#_==3);J(@_,'A')}sub P(@_)
{return@_ if($#_==3);A(@_,'P')
}sub H(@_){return@_ if($#_==3)
;P(@_,'H')}@_=(J,A,P,H);$_=(J,
A,P,H);$_=join'',((reverse(@_)
)[0..3]);s/\s+//;y/#+//;print;
[download]