: parse-string ( word-start word-count -- )
    source drop >in @ + source + locals| parse-end parse-start |
    counted-string-token c,
    here 0 c,
    parse-start parse-end < if
        parse-end parse-start do
            i c@ [char] ' = if
                i parse-start - over c!
                1+ >in @ + >in !
                unloop exit
            then
            i @ c,
        loop
        parse-end source drop - >in @ + >in !
    then
    drop ;