#+begin_src haskell
  let fac n = product [1..n]
  [(x,fac x) | x <- [0..11]]
#+end_src