Title: JPEG compression translated into Haskell language