let a = 1

let b =
  let c = 0 + a in
  let d =
    let e = a + c in
    let f = a + c + e in
    a + c + e + f
  in
  a + c + d