lefdata
ku = i>0 ? lefdata(i-1,c) : 0;
kl = lefdata(allh(i) ? i+1 : i, c);
kind = lefdata(i,c);
if (lefdata(next(i),c)== kind) return(-1);
while (i>=0 && lefdata(i,c)==kind)