x=0;
While[True,Print[BaseForm[x,8];x++]