I scheduled the writing of a JAPH signature for the year to come. Yet this morning some good ideas came to me and i got up with what follows.

for(qw(J A P H)){eval qq.sub $_..q.{..($.?$..q.++$_[$[].:q.chop
[caller $_[$[]]->[!$||$^F].).q.}GM.,$.=$_}print J(),A(),P(),H()
[download]

gkinueliileunikg