Source

puzzle_nodes / 15 / sample.stack

Full commit
PROCEDURE UPTO
  DUP
  1
  SUBTRACT
  TIMES
    DUP
    1
    SUBTRACT
  /TIMES
/PROCEDURE

PROCEDURE DROP_UNTIL
  DUP
  ROT
  =
  IF
    :true
  ELSE
    DROP_UNTIL
  THEN
/PROCEDURE

100
UPTO

65
DROP_UNTIL