$i;0|($k/=10)||$j=!$k=$j>4?$j:$i+=$j-1||print"$i ")$j+=$s*$s=$k%10;