d:33100000; / takes ages without a good guess. ;) e:{10*y*~x!y} (1+)/[{d>+/e[x]'!x+1};776150] e2:{(x<50*y)*11*y*~x!y} (1+)/[{d>+/e2[x]'!x+1};786235]