\ f.s 99.12.15 2:20 pm NAB needs core-ext needs toolkit : f.s fdepth dup ." [" 0 0 d.r ." ] " 0 ?do fp0 i 1+ floats - f@ fs. loop cr ;