new file.
input Program.
compute #n = 100.


loop i = 1 to #n.
compute x = trunc(rv.uniform(0,1)*#n +1).

end case.
end loop.
end file.
end input program.
execute.