: parse-string ( -- )
    counted-string-token c,
    [char] ' parse swap over dup c, here swap move allot ;