My Code-A-Long while reading through Purely Functional Data Structures [Haskell]