Haskell Code for FP101x Course