Solve 11 in haskell