{
    sstore(0, array_sum(calldataload(0)))

    function array_sum(x) -> sum {
        let length := calldataload(x)
        for { let i := 0 } lt(i, length) { i := add(i, 1) } {
            sum := add(sum, array_load(x, i))
        }
    }
    function array_load(x, i) -> v {
        let len := calldataload(x)
        if iszero(lt(i, len)) { revert(0, 0) }
        let data := add(x, 0x20)
        v := calldataload(add(data, mul(i, 0x20)))
        // this is just to have some additional code that
        // can be moved out of the loop.
        v := add(v, calldataload(7))
    }
}
// ----
// step: fullSuite
//
// {
//     {
//         let _1 := calldataload(0)
//         let sum := 0
//         let length := calldataload(_1)
//         let i := sum
//         let _2 := calldataload(7)
//         for { } lt(i, length) { i := add(i, 1) }
//         {
//             let _3 := 0x20
//             sum := add(sum, add(calldataload(add(add(_1, mul(i, _3)), _3)), _2))
//         }
//         sstore(0, sum)
//     }
// }