superExplode.sml

fun superExplode (delimiter, s) =
    let
        fun takeUntil (delimiter, []) = []
          | takeUntil (delimiter, first::rest) =
            if first = delimiter then
                []
            else
                first::(takeUntil (delimiter, rest))

        fun superExplode' (delimiter, []) = []
          | superExplode' (delimiter, l) =
            let 
                val part = (takeUntil (delimiter, l))
            in
                (implode part)::(superExplode' (delimiter, List.drop (l, length part + 1)) handle Subscript => [])
            end
    in
        superExplode' (delimiter, explode s)
    end