Levenshtein Distance in Haskell