external f : [< `gain ] -> float -> unit = "al_listener_f"