Haskell code written during 5th semester