oundex_truncated :: Bool -> String -> String
soundex_truncated nara = take 4 . (++ repeat '0') . soundex nara

soundex_truncated :: Bool -> String -> String
soundex_truncated nara = take 4 . (++ repeat '0') . soundex nara
soundex_truncated nara = take 4 . (++ repeat '0') . soundex nara