REBOL[]for n x: 1 400 1[s: form x: x + n forall s[loop do form s/1[prin":"]prin pick{
 }none? s/2]]