function r = F(x)
global nstate
%global lenseq
if ~x(end), x=x(1:end-1); end;
r = length(find(x~=1));
return
%r = sum(x);
%return
global nstate
%global lenseq
%if ~x(end), x=x(1:end-1); end;
x=x+1;
lenseq = length(x);
global FN
FF = FN{lenseq};
ind = coord2ind(x,(repmat(nstate,1,lenseq)));
r = FF(ind);
return