(alt.) ( basis n -- str )

Vocabulary

koszul

Inputs

basis	an object
n	an object

Outputs

str

an object

Definition

USING: accessors kernel math.parser sequences ;

IN: koszul

: (alt.) ( basis n -- str )
    over empty?
    [ nip number>string ]
    [ num-alt. swap [ name>> ] map "." join append ] if ;