Add #112 Haskell solution