let to_stream lset = LMap.to_stream lset /@ fst