diff --git a/scratch/haskell-programming-from-first-principles/non-strictness.hs b/scratch/haskell-programming-from-first-principles/non-strictness.hs
new file mode 100644
index 000000000..42608fb0c
--- /dev/null
+++ b/scratch/haskell-programming-from-first-principles/non-strictness.hs
@@ -0,0 +1,6 @@
+module NonStrictnessScratch where
+
+x = undefined
+y = "blah"
+main = do
+  print $ snd (x, x `seq` y)