XKCD #1312 | Haskell