do input""n
?trim$(str$(n+0^n,"###,###,###"))loop