function psSqr( e : extended) : extended;
begin;
  result := sqr(e);
end;