point :: A.Parser Point
point = do
    name <- nameP <* comma
    keys <- Map.fromList <$> pairsP <* space
    values <- Map.fromList <$> pairsP
    time <- timeP <* A.endOfInput
    return $ Point name keys time values
point :: A.Parser Point
point = do
    name <- nameP <* comma
    keys <- Map.fromList <$> pairsP <* space
    values <- Map.fromList <$> pairsP
    time <- timeP <* A.endOfInput
    return $ Point name keys time values
point = do
    name <- nameP <* comma
    keys <- Map.fromList <$> pairsP <* space
    values <- Map.fromList <$> pairsP
    time <- timeP <* A.endOfInput
    return $ Point name keys time values