execute block (
   x double precision = :X,
   y double precision = :Y
)
returns (
   MULT double precision
)
as
begin
  MULT = x*y;
  suspend;
end