symbseq.to.blocks <- function(s,L) {
  n <- length(s)
  collapser <- function(i) {paste(s[i:(i+L-1)],collapse="")}
  max.index <- n -L+1
  blocks <- sapply(1:max.index,collapser)
  return(blocks)
}