add haskell solution for FindAWriter.hs