[REBOL] [REBOL]string to series function

[tjohnson]

I would like to have a function to do
the following
1)take two strings as arguments
  a)arg one is source
  b) arg two is delimiters
2)return a series

it would work like this:

my-series: string-to-series "one#two%three four" "#% "
my-series is returned as ["one" "two" "three" "four"]

BTW: I have a c function that does this. With
subsequent function calls, it is about 40 lines of
code. I'm pretty lost when it comes to parse, but
I bet the rebol function would be shorter.
thanks
tim