do-it-in-haskell picture