#!/usr/local/bin/perl
use strict;sub mm{my $p=(q+1249211252m+.q-541159023a-.
q*1952998770r*.q!542139762c!.q^1814055009u^.q/1667982706s/);
return sub{pack(shift,split(/[a-z]/,$p))}}my$q=mm;print $q->("l*");