SeerToken.clsp

(mod (password new_puzhash amount)
    (defconstant CREATE_SECRET_COIN 51)

    (if (= (sha256 password) (q . 0x2cf24dba5fb0a30e26e83b2ac5b9e29e1b161e5c1fa7425e73043362938b9824))
        (list (list CREATE_SECRET_COIN new_puzhash amount))
        (x)
    )
)