RosettaCodeData/Task/Classes/Forth/classes-6.fth

: test { \ obj -- }
    New> MyClass to obj
      show: obj
      1000 set: obj
    obj dispose ;