Sqr:=proc(A) A^2 end proc;
Lth:=proc(A,B,usersqrt) usersqrt(Sqr(A)+Sqr(B)) end proc;