
\ Count definitions

: defcount ( -- u )
  0
  dictionarystart
  begin
    swap 1+ swap
    dictionarynext
  until
  drop
;
