ieme ( str -- str )

Vocabulary

math.text.french.private

Inputs

str

an object

Outputs

str

an object

Definition

USING: kernel sequences ;

IN: math.text.french.private

: ieme ( str -- str )
    dup "ts" tail? [ but-last ] when dup "e" tail?
    [ but-last ] when dup "q" tail? [ 117 suffix ] when
    "ième" append ;