flag>unicode ( flag -- country-code )


Vocabulary
unicode.flags

Inputs
flagan object


Outputs
country-codean object


Definition
USING: accessors assocs sequences ;

IN: unicode.flags

: flag>unicode ( flag -- country-code )
[ flag-codes to>> at ] map ;