REBOL[]
i: 999
x: 100
product: 0
while [(i > 100) and (x < 999)] [
  i: i - 1 x: x + 1
  product: i * x
  product: to-string product
  if [product = reverse product] [print product]
  ]