diff --git a/E01/A4.hs b/E01/A4.hs
index a5c9967..a974ae8 100644
--- a/E01/A4.hs
+++ b/E01/A4.hs
@@ -9,6 +9,10 @@ gen = gen1 1
 gen1 :: Int -> [Int]
 gen1 a = a:gen1 (a+1)
 
+-- Für Experten: List comprehensions.
+gen2 :: [Int]
+gen2 = [1..]
+
 -- (b)
 {-
   Haskell nutzt lazy-evaluation oder auch call-by-need genannt, obwohl der