hist(unlist(lapply(listaTabel,dim))[seq(1,214,2)], 
       xlab="# of sequences which support motif",
       main="Support for 107 motifs from JASPAR db",20)