all.mers <-
function(mer){sort(apply(expand.grid(lapply(1:mer,function(x){c("A","C","G","T")})),1,function(x)paste(x,collapse="")))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.