I made these codes to trial and test haskell.