valor por extenso com semparacao

Onde eu encontro uma funcao para gerar Extenso de Valores com separação Silábica
EX:

Cinquenta e Cinco Mil, Seiscentos e Quarenta e Qua-
tro Reais e Doze Centavos *********************
*******************************************