to distancexyz :point
localmake "dx (item 1 posxyz) - (item 1 :point)
localmake "dy (item 2 posxyz) - (item 2 :point)
localmake "dz (item 3 posxyz) - (item 3 :point)
output sqrt (:dx*:dx + :dy*:dy + :dz*:dz)
end

bury "distancexyz
