d:*0:`day10
S:256
k:{(S#(S-m)_v,v:(|y#r),y_r:S#(m:S!x 1)_h,h:*x;+/y,x 1 2;1+x 2)}

*/2#*(!S;0;0)k/. d	/ 11413

1 k/[;0+d,17 31 73 47 23]/(!S;0;0)

`c$,/+S\(2/2!+/+2\)'16 0N#*64 k/[;0+d,17 31 73 47 23]/(!S;0;0)
			/ 7adfd64c2a03a4968cf708d1b7fd418d

/\\