REBOL[]for i 50 1 -1[print i print 101 - i]