Plotmath fractals 2

Tweetable Fractal in Plotmath - Sierpinski triangle

s <- function(x) bquote(.(x)[.(x)]^.(x))
x <- s(s(s(s(s(s(bquote(mu)))))))
plot(0, type="n", xlim=c(0,1), ylim=c(0,1), axes=F, ann=F)
text(0.5, 0.5, x, cex=1.5)

And this is what the plotmath looks like for this sierpinski triangle

(((((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[(((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^(((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[(((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^(((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[(((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^(((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu)[((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu]^((mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu)
[(mu[mu]^mu)[mu[mu]^mu]^mu[mu]^mu]^(mu[mu]^mu)
[mu[mu]^mu]^mu[mu]^mu