: *value ( c-ptr c-type -- value )
    [ [ 0 ] dip heap-size <byte-array> ] keep alien-value ; inline

:: <value> ( value c-type -- c-ptr )
    c-type heap-size <byte-array> :> c-ptr
    value c-ptr 0 c-type set-alien-value
    c-ptr ; inline