(use gromit) (define-property-type password 'prop_password (set integer required constant (key 0)) (algorithm integer required constant) (iterations integer required constant) (salt integer required constant) (crypt integer required constant)) (define-object-type account 'attrib_account (onboarding integer) (pre-genesis integer) (password password))