Solve 13 in haskell