\ a .s with the TOS printed *last* : .s depth 0 ?do depth i - 1- pick . loop ;