inputToSquareFeet :: String -> Int
inputToSquareFeet input =
  let surfaceAreaList = textDimListToSurfaceAreaList (lines input)
  in foldl (+) 0 surfaceAreaList
inputToSquareFeet :: String -> Int
inputToSquareFeet input =
  let surfaceAreaList = textDimListToSurfaceAreaList (lines input)
  in foldl (+) 0 surfaceAreaList
inputToSquareFeet input =
  let surfaceAreaList = textDimListToSurfaceAreaList (lines input)
  in foldl (+) 0 surfaceAreaList