-- | This is the most common US census variant of `soundex`,
--- compatible with most existing calculators.  It gives the
--- first four characters of the full soundex code, zero-padded
--- as needed.
soundexNARA :: String -> String
soundexNARA = soundex_truncated True

soundexNARA :: String -> String
soundexNARA = soundex_truncated True
soundexNARA = soundex_truncated True