Stream.empty : unit -> 'a Stream.t let unsubscribe = Stream.empty () |> Stream.subscribe (fun () -> print_endline "pass") (* no output *)