Add solution in Haskell for the filling Game Kata