CQL code for control of center:
;Overwhelming advantage in controlling center with pieces and pawns
(match
  (position 
    :and(
      (position
        :inside ?e4 d-e4-5
        :or(
          (position
            Ae4
            :maxswapvalue a Ae4 -1000 -1
            :accumulate wcontrol
            :markers(
              :square ?e4 Rb
            ) 
          )
          (position
            :attackcount A .e4 1 100
            :attackcount a .e4 0
            :accumulate wcontrol
            :markers(
              :square ?e4 Rb
            ) 
          )
          (position
            ae4
            :maxswapvalue A ae4 -1000 -1
            :accumulate bcontrol
            :markers(
              :square ?e4 Br
            ) 
          )
          (position
            :attackcount a .e4 1 100
            :attackcount A .e4 0
            :accumulate bcontrol
            :markers(
              :square ?e4 Br
            ) 
          )
        )
        :shift
      )
      (position
        :markers(
          :region ?d-e4-5 G
        ) 
      )  
    )
    :sumrange wcontrol 3 4
    :sumrange bcontrol 0
  )
)