Mathematica scripts that perform the RG for Hanoi graphs