This code is a modification based on the scale tree code by Aaron Krister Johnson at UnTwelve.org