foldRight на бесконечной ленивой структуре

Согласно http://en.wikipedia.org/wiki/Fold_(higher-order_function), правая складка может работать с бесконечными списками, если полный список не нужно оценивать. Это можно увидеть в действии в haskell:

Prelude> take 5 (foldr (:) [] [1 ..])
[1,2,3,4,5]

Кажется, это не очень хорошо работает в scala для потоков:

Stream.from(1).foldRight(Stream.empty[Int])( (i, s) => i #:: s).take(5)
// StackOverflowError

или для итераторов:

Iterator.from(1).foldRight(Iterator.empty: Iterator[Int]){ (i, it) => 
  Iterator.single(i) ++ it
}.take(5)
// OutOfMemoryError: Java heap space

Есть ли практическое решение для достижения ленивого складывания справа в Scala?