for(;a++<999;){for(c=6;c;)b[(8*a-1)*4^--c]=1;if(b[a])a}