long real procedure multiply( long real value a, b );
begin
    a * b
end