complete ( str n -- str )

Vocabulary

math.text.french.private

Inputs

str	an object
n	an object

Outputs

str

an object

Definition

USING: combinators kernel sequences ;

IN: math.text.french.private

: complete ( str n -- str )
    {
        { 0 [ ] }
        { 1 [ "-et-un" append ] }
        [ [ unpluralize ] dip basic "-" glue ]
    } case ;