-   breaks <- sort(rep(1:num, len=length(string)))
+   breaks <- sort(ifelse(string==string, 1:num))