multiCell :: GenParser Char st [PropertyToken]
multiCell = do
    identation 8
    o@(ObjectToken oName plName) <- object
    trueSpaces
    coords <- listOf intTuple2
    lineEnd
    return $ map (\c -> CellProperty S.cell c o) coords
multiCell :: GenParser Char st [PropertyToken]
multiCell = do
    identation 8
    o@(ObjectToken oName plName) <- object
    trueSpaces
    coords <- listOf intTuple2
    lineEnd
    return $ map (\c -> CellProperty S.cell c o) coords
multiCell = do
    identation 8
    o@(ObjectToken oName plName) <- object
    trueSpaces
    coords <- listOf intTuple2
    lineEnd
    return $ map (\c -> CellProperty S.cell c o) coords