a |> f = f a
Stream.from-uint64 0
  |> Stream.take 10000
  |> Stream.fold-left 0 (UInt64.+)