#!/usr/bin/perl -w
my$j="japhunclsokter";my@j=split//,$j;my$r="\n";my$t="\t";my$s=" ";pri
+nt"$r","$j[0]"x7,"$t$t$j[1]$t","$s"x7,"$j[2]"x5,"$t","$s"x3,"$j[3]","
+$s"x2,"$j[3]$r","$s"x3,"$j[0]$t","$s"x7,"$j[1]$s$j[1]$t","$s"x7,"$j[2
+]","$s"x4,"$j[2]","$s"x6,"$j[3]","$s"x2,"$j[3]$r","$s"x3,"$j[0]$t","$
+s"x6,"$j[1]"x5,"$t","$s"x7,"$j[2]"x5,"$s"x7,"$j[3]"x4,"$r","$j[0]","$
+s"x2,"$j[0]$t","$s"x5,"$j[1]","$s"x5,"$j[1]","$s"x11,"$j[2]","$s"x11,
+"$j[3]","$s"x2,"$j[3]$r","$s$j[0]$j[0]$s$s$j[4]$j[8]$j[11]","$s"x4,"$
+j[1]$t","$s"x4,"$j[1]$s$j[5]$j[9]$j[11]$j[3]$j[12]$j[13]","$s"x3,"$j[
+2]","$s"x4,"$j[12]$j[13]$j[7]","$s"x4,"$j[3]$s$s$j[3]$s$j[1]$j[6]$j[1
+0]$j[12]$j[13]$r$r";
[download]

RedDog