$V=sub{(@_)?return&$V(@_[1..$#_]),shift,eval{(++$::x==$::a*4+$::p*7+
$::h*4)?eval{eval{$::a?($::p?($::h?'':$::h++):$::p++):$::a++;};' ';}
:''}:();};$a=1;$_="42.redbig7ik6icy0adf3Hilfred1Preg1Zim8why5tonamb"
."itsfud56Jim9";~y#H420135-9bigZmwdfy#h\n #;s% %%g;split//;print&$V;