l:.'0:"i/10"
l:{x@<x}0,l,3+|/l
{(+/3=x)*+/1=x}(1_l)--1_l
r:10000#0;c:{n:r[+/x];$[n;n;r[+/x]:f x]}
f:{$[1<#x;+/c'x{x@&x>y-1}/:1_x@&x<4+&/x;1]}
f l