Your favourite Haskell Haikus

Post your favourite Haskell Haikus! I'll start:

Prelude> foldl (+) 0 [1..100000000]
<interactive>: out of memory

Prelude> foldr (+) 0 [1..100000000]
<interactive>: out of memory

Prelude> id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id id 1
<interactive>: out of memory

>>7
I mean the implementation should recognize (+) as associative and maybe spin up a few threads to do it in parallel. Or don't bother.

The id thing is stupid. OCaml has a problem with it too. But pathological behaviour in HM is nothing new.