No trimming:
█
└─rlang:::f(0)
  ├─base::identity(identity(g(n)))
  ├─base::identity(g(n))
  └─rlang:::g(n)
    ├─base::identity(identity(h(n)))
    ├─base::identity(h(n))
    └─rlang:::h(n)
      ├─base::identity(identity(trace_back(e, bottom = n)))
      ├─base::identity(trace_back(e, bottom = n))
      └─rlang::trace_back(e, bottom = n)


One layer (the default):
█
└─rlang:::f(1)
  ├─base::identity(identity(g(n)))
  ├─base::identity(g(n))
  └─rlang:::g(n)
    ├─base::identity(identity(h(n)))
    ├─base::identity(h(n))
    └─rlang:::h(n)


Two layers:
█
└─rlang:::f(2)
  ├─base::identity(identity(g(n)))
  ├─base::identity(g(n))
  └─rlang:::g(n)


Three layers:
█
└─rlang:::f(3)
