/ path functions paths:{[f;v]mpaths[f;();v]} mpaths:{[f;s;v]if[~5=4:v;:apaths[f;s]v];m:. v;s,/:,/(_f[f]'[m[;0];m[;1]]),_f[f]'[~m[;0];m[;2]]} apaths:{[f;s;v]:[f[s;v]&7=t:4:v;s;(t=6)|~t _in 0 5;();s,/:,/'_f[f]'[:[0=t;!#:;!:]v;v[]]_dv()]} find:{[f]paths[{[f;s;v]f~*|s}[f]]@.`} \ / example \d .k.q a:100 i:{[x]r:0;do[1000000;r+:g x];r} g:{[x]a+x} h:(3;{x+y}) m:,.+(`b`c`d`i;(10;{x%y};20;{z+y-x})) f..i:{x*y} \d .k find`i \ fpaths:paths[{[s;v]1}]