$o='624633773672501141644024614615072372172376745663223200615062513630435672';
while (9>($q[$w-1]=++$w)){};$x[$_]=sqrt(oct(substr($o,($_-1)*($#q+1)
,$#q+1)))/$_ for(@q);$x.=sprintf("%09.0f",$x[$_]*$x[$_]*$_*$_)for
(@q);while($_=substr($x,$y*($#q-5),$q[2])){$z[$y++]=$_}print chr for
(@z)