solved 15 in Haskell