Fiendishly clever. I've modified it to give the canonical JAPH. It's a little bit of a giveaway; maybe it could be masked better.

getprotobyname y format s quotemeta
getprotobyname waitpid rand (fileno), join values our
getprotobyname readline time q map or for
getprotobyname print for JpgbeiatbhmnePmnrehickmns x
getprotobyname icmp
[download]