findSimilar :: Name -> Names -> Names
findSimilar n = filter (\x -> show n `similar` show x)
findSimilar :: Name -> Names -> Names
findSimilar n = filter (\x -> show n `similar` show x)
findSimilar n = filter (\x -> show n `similar` show x)