func(last,{elem([x],len([x]))}):

func(fill,{
  smooth(<for(
    <k,[x],[y],[z]>,{[k],}
  )>)
}):

func(dotprod,{reduce(join,[x]*[y])}):

func(crossprod,{
  sub({
    let(r1,[x]):
    let(r2,[y]):
    print_
    <
    (elem([r1],2)*elem([r2],3)-
     elem([r1],3)*elem([r2],2)),
 -1*(elem([r1],1)*elem([r2],3)-
     elem([r1],3)*elem([r2],1)),
    (elem([r1],1)*elem([r2],2)-
     elem([r1],2)*elem([r2],1))
    >
  })
}):

func(normvec,{[x]/sqrt(dotprod([x],[x]))}):

print_`vector.txt',: