urflibs/tests/test-sinopt-cell-01.f

   1 : testit-0  ( n -- n )  0 +cells ;
   2 .( 0 +cells\n)
   3 debug:decompile testit-0
   4
   5 : testit-1  ( n -- n )  1 +cells ;
   6 .( 1 +cells\n)
   7 debug:decompile testit-1
   8
   9 : testit-2  ( n -- n )  2 +cells ;
  10 .( 2 +cells\n)
  11 debug:decompile testit-2
  12
  13 debug:dump-stack