Pedagogical implementation of decision tree learning in Haskell