REBOL[]loop 30[n: 0 print foreach c input[n: n + do pick{  }to-integer c - 96]]