-- | This is the simple variant of `soundex`.  It gives the
--- first four characters of the full soundex code, zero-padded
--- as needed.
soundexSimple :: String -> String
soundexSimple = soundex_truncated False

soundexSimple :: String -> String
soundexSimple = soundex_truncated False
soundexSimple = soundex_truncated False