vgetFull :: VGet a -> VGet a
vgetFull parse = do
    vgetInit
    r <- parse
    assertDone
    return r
vgetFull :: VGet a -> VGet a
vgetFull parse = do
    vgetInit
    r <- parse
    assertDone
    return r
vgetFull parse = do
    vgetInit
    r <- parse
    assertDone
    return r