s:{n:2+!x-1;p:,2
while[~0=#n;(p,:,n@0;n:_di[n;&~n!n@0])]
_dv[p;0]}