learning haskell.. my random stuff