# So it's not completely platform independent. Bite me.
# Should work on most though (although maybe not BSD).
#!/usr/bin/perl
($_='sbe($dq=264;$dq>-1;$dq-=11){sbernpu$wht((N..M)){vs((pelcg
($wht,\'AN\'))rd("AN".(erirefr(fcyvg(//,(fhofge((wbva\'\',
(\'V81F6kxRNbk6ouZQ8pBD1NV8dX3gsGKifV81F6kxRNbkx/rIM0Yw\'
,\'eo0VQ4UHqKOc9x2Ibfe.1zJymHQBZ8LHz8yWV81F6kxRNbk6ouZQ\'
,\'8pBD1NV8dX3gsGKif2Ibfe.1zJymV81F6kxRNbk6ouZQ8pBD1N6DY\'
,\'4eeXWTvwLYaNJD4hPRJLn9e0zkE9Zo2YV.X43rnv5ZOegaWBEdlo2\'
,\'Ibfe.1zJymLYaNJD4hPRJL1BVy7vfL1qx/rIM0Yweo02xUvbMsjqo/\')
),$dq,11))))))){$wht=~f/M/ /;cevag$wht;}}}')=~
tr/a-zA-Z/n-za-mN-ZA-M/;eval;print "\n";