R script from my personal webpage of the infinite monkey theorem and my implementation of a model using a Markov Chain of first order