: .GELD <# SWAP OVER DABS SIGN              # # 46 HOLD #S #>           TYPE SPACE ." MARK " ;  0 VARIABLE SUMME                : ZAHLEN SUMME @ S->D .GELD 0     SUMME ! ;                     : WARE <BUILDS ,                  DOES> @ * SUMME +! ;