A generator blob that check parameters

copy-protection.cl

(mod arguments

  ; this generator blob will fail if the correct run-time parameters are not included
  
  (defun sha256tree
         (TREE)
         (if (l TREE)
             (sha256 2 (sha256tree (f TREE)) (sha256tree (r TREE)))
             (sha256 1 TREE)
         )
  )
  
  (if (= (sha256tree arguments) 0xfd7a579d49180524839b6593e9bb67e5033060940f71626aa47ac90ee7ea35a3)
      (q . (()))
      (x arguments)
  )
)

; compiles to:
; ff02ffff01ff02ffff03ffff09ffff02ff02ffff04ff02ffff04ff03ff80808080ffff01a0fd7a579d49180524839b6593e9bb67e5033060940f71626aa47ac90ee7ea35a380ffff01ff01ff8080ffff01ff08ff038080ff0180ffff04ffff01ff02ffff03ffff07ff0580ffff01ff0bffff0102ffff02ff02ffff04ff02ffff04ff09ff80808080ffff02ff02ffff04ff02ffff04ff0dff8080808080ffff01ff0bffff0101ff058080ff0180ff018080