function dotp,x,y,double=double return, total(x*y, double=double) end