main = do
  col  <- readLn
  lineA <- getLine >>= (\xs -> return (map read (words xs) :: [Int]))
  lineB <- getLine >>= (\xs -> return (map read (words xs) :: [Int]))

  print $ maximum $ map (\i -> sum (take i lineA) + sum (drop (i - 1) lineB)) [1..col]