makeTestTree maxwidth 0 width tail =
    makeTestTree maxwidth 0 (width - 1) $! (simpleTest : tail)
makeTestTree maxwidth 0 width tail =
    makeTestTree maxwidth 0 (width - 1) $! (simpleTest : tail)
makeTestTree maxwidth 0 width tail =
    makeTestTree maxwidth 0 (width - 1) $! (simpleTest : tail)