enjoy_haskell:Write code to 610