First try at lerning haskell