(mod ((VALIDATION_PROGRAM_HASH AMOUNT) action . args)

    (include *standard-cl-21*)

    (defun reduce (fun lst init)
        (if lst
            (reduce fun (r lst) (a fun (list (f lst) init)))
            init
        )
    )

    (let
      ((new_puzzle_hash 38911)
       )
      (reduce
       (lambda ((& AMOUNT new_puzzle_hash) (@ condition (condname arg1 arg2)) agg)
         (if agg
             1
             (if (= condname CREATE_COIN)
                 (logand (= arg1 new_puzzle_hash) (= arg2 AMOUNT))
                 0
                 )
             )
         )
       conditions
       0
       )
      )
    )