Started adding tournament tree Haskell program