code for Haskell School of Expression