use cl-incf instead of cl