m: n: 0
sum: i: 0
for i 0 1000 1 [
  print i
  m: i / 5
  n: i / 3
  if type? m and n <> decimal! [sum: sum + i]
  ]
print sum