% Factorize X, store the N factors in R001-RN, and place N in X. define x=x_reg; p:=factorize(fix(x)); x:=0; for i:=1:length(p) do begin q:=part(p,i); for j:=1:part(q,2) do begin x:=x+1; data_reg(x):=part(q,1); end; end;