rebol[]loop 0 + to-char input[prin"+"]prin"."