Solved prob36 and learned more haskell