Copule of lines of Haskell code that I just like keep at hand.