diff --git a/VL1/content/VL1_write_haskell9.tex b/VL1/content/VL1_write_haskell9.tex
index 748d525..991c076 100644
--- a/VL1/content/VL1_write_haskell9.tex
+++ b/VL1/content/VL1_write_haskell9.tex
@@ -8,7 +8,7 @@ $S = \{2 \times x\ |\ x \in \mathbb{N},\ x \leq 10\}$
 How does this look in haskell?
 \pause
 \begin{haskellcode}
-> [x*2 | x <- [1..10]]
+> [ 2 * x | x <- [1..10]]
 \end{haskellcode}
 \pause
 Now let's say we want all numbers between 50 and 100 that have the remainder 0 when divided by 12: