function A = k2(inp,blksize,filtsize,fact1,fact2,skip)

R = kproc(inp,blksize,filtsize,fact1,fact2);

[nr,nc] = size(R);

for i = 1:nc,
    if (R(1,i) == 1)
	A = [A,R(:,i)];
    else
	s = find_match(R(:,i),A,blksize,skip);
	if (s == -1)
	    A = new_lane(R(:,i),A,blksize);
	else
	    A = expank(R(:,i),A,s,blksize);
	end
    end
end





