(define-read-only (construct (arg1 principal))
    (ok (unwrap-panic (principal-construct? 0x16 (unwrap-panic (principal-destruct? arg1 )))))
 )
(define-read-only (destruct (arg1 principal))
    (ok (unwrap-panic (principal-destruct? arg1 )))
 )