test_stack.f

   1 ( -*- text -*- )
   2
   3 : TEST
   4         DEPTH . CR
   5
   6         42 DUP . . CR
   7         23 DROP DEPTH . CR
   8         1 2 SWAP . . CR
   9         1 2 OVER . . . CR
  10         1 2 3 ROT . . . CR
  11         1 2 3 -ROT . . . CR
  12         1 2 3 4 2DROP . . CR
  13         1 2 3 4 2DUP . . . . . . CR
  14         1 2 3 4 2SWAP . . . . CR
  15
  16         DEPTH . CR
  17 ;