function aprint(r)
for j = 1:length(r)
    fprintf('%d', r(j)); 
    if j~=length(r) fprintf(',  ');
    end;
end;
fprintf('\n')