PROC multiply = ( LONG REAL a, b ) LONG REAL:
(
  a * b
)