-- Copyright (C) 2013 Jorge Aparicio

main :: IO()
main = do
  contents <- readFile "018.in"
  let triangle = map (map read . words) $ lines contents :: [[Int]]
  print . maximum . foldl1 traverse $ triangle
main :: IO()
main = do
  contents <- readFile "018.in"
  let triangle = map (map read . words) $ lines contents :: [[Int]]
  print . maximum . foldl1 traverse $ triangle
main = do
  contents <- readFile "018.in"
  let triangle = map (map read . words) $ lines contents :: [[Int]]
  print . maximum . foldl1 traverse $ triangle