punycode> ( punycode -- str )


Vocabulary
punycode

Inputs
punycodean object


Outputs
stran object


Definition
USING: ascii kernel math punycode.private sbufs sequences ;

IN: punycode

: punycode> ( punycode -- str )
45 over last-index
[ [ head >sbuf ] [ 1 + tail ] 2bi >upper ]
[ SBUF" " clone swap >upper ] if* insertion-sort "" like ;