some haskell doodling