vmul.apple

λA.λx.
{
  dot ⇐ [(+)/((*)`x y)];
  -- "iterate over second axis" (i.e. columns)
  (dot x)`{1∘[2]} (A::Arr (i`Cons`j`Cons`Nil) float)
}