QUALIFIED-WITH: alien.c-types c

IN: sim

STRUCT: v3
  { x c:double }
  { y c:double }
  { z c:double } ;

TYPED:: v3d ( v1: v3  v2: v3 -- c: c:double )
    v1 x>> v2 x>> *
    v1 y>> v2 y>> *
    v1 z>> v2 z>> * + + ;