Run Length Encoding - Haskell | SlaveCode