( Library - Samples )
( --------------------------------------------------------- )

( What? No looping constructs??? Not yet, but here's a way  )
( to do simple loops using IF/THEN and the return stack     )
: stars '* emit 1 - >r r@ 0 = if ;; then r> stars ;
: spaces 32 emit 1 - >r r@ 0 = if ;; then r> spaces ;
