STDIN INCLUDE-FILE DEPTH 0 [DO] 1- S>F [LOOP] [BEGIN] F>S F>S * 1- 0 .R CR 0