1input""a:if a?trim$(str$(a,"###,###,###")):goto 1