parseBase :: CharParser st Base
parseBase = do
    pkeyword "@base"
    base <- skips uriP
    skips $ char '.'
    return $ Base base
parseBase :: CharParser st Base
parseBase = do
    pkeyword "@base"
    base <- skips uriP
    skips $ char '.'
    return $ Base base
parseBase = do
    pkeyword "@base"
    base <- skips uriP
    skips $ char '.'
    return $ Base base