add old stuff (from learn you a haskell)