( Skip atom, considering special atom types. )
: ASKIP ( a -- a+n )
    DUP @       ( a n )
    ( ?br or br or NUMBER )
    DUP 0x67 = OVER 0x53 = OR OVER 0x20 = OR OVER 0x24 = OR
    IF DROP 4 + EXIT THEN
    ( regular word )
    0x22 = NOT IF 2+ EXIT THEN
    ( it's a lit, skip to null char )
    ( a )
    1+  ( we skip by 2, but the loop below is pre-inc... )
    BEGIN 1+ DUP C@ NOT UNTIL
    ( skip null char )
    1+
;