vtypedef tptr (a:t@ype, l:addr) = (a @ l | ptr l)
vypedef tptr (a:t@ype, l:addr) = @{ tptr_pf= a @ l | tptr_ptr= ptr l}