#!/usr/bin/perl
$\ = 'race shelter or phat junk';
$d = ((((30x2).10)x2).31x2).10x17;
$d =~ s/(.)(.)/substr($\,$_*$1-$+,1)=~s'.';
$\ .= $&;
shift 'e;$`/efor split$', '7756616474488855444413100';
print;