/ use ok

n:4
d:{x@>x}@.:'-1_0:"day24"
g:(+/d)%n
r:{`0:,$#x; $[6<#x; (); g=t:+/x; ,x; (t<g)&(0<#y); ,/{[v]r[x,*v;1_v]}'(!#y)_\:y; ()]}
s:r[(); d]
&/*/'s