#!/usr/bin/perl -w
my@j=qw(j a p h);my@s=(" ","  ","   ","    ","     ","      ");my$r="\n";my$t="\t";print"$r";print"$j[0]"x7,"$t$t$j[1]$t$s[5]$s[1]","$j[2]"x5,"$t$s[2]$j[3]$s[1]$j[3]$r";print"$s[2]$j[0]$t$s[5] $j[1]$s[0]$j[1]$t$s[5]$s[1]$j[2]$s[3]$j[2]$s[4]$j[3]$s[1]$j[3]$r";print"$s[2]$j[0]$t$s[5]","$j[1]"x5,"$t$s[5]$s[1]","$j[2]"x5,"$s[5]","$j[3]"x4,"$r";print"$j[0]$s[1]$j[0]$t$s[4]$j[1]$s[4]$j[1]$s[5]$s[5]$j[2]$s[5]$s[3]$j[3]$s[1]$j[3]$r";print"$s[0]$j[0]$j[0]$s[1]ust$s[3]$j[1]$t$s[3]$j[1]$s[0]nother$s[3]$j[2]$s[3]erl$s[2]$j[3]$s[1]$j[3]$s[0]acker$r$r";