6 lines
148 B
Haskell
6 lines
148 B
Haskell
import Text.PhoneticCode.Soundex
|
|
|
|
main :: IO ()
|
|
main =
|
|
mapM_ print $
|
|
((,) <*> soundexSimple) <$> ["Soundex", "Example", "Sownteks", "Ekzampul"]
|