function dot2_1d,f
return,f(*,0)^2+f(*,1)^2+f(*,2)^2
end