let
relation xs = stream (
Relation
.of_stream xs)