-USING: accessors ascii assocs biassocs lexer sequences ;
+USING: accessors assocs biassocs kernel lexer prettyprint
+sequences unicode ;
IN: unicode.flags
: flag>unicode ( flag -- country-code )
[ flag-codes to>> at ] map ;
+! Random flags, England/Scotland/Wales, Refugee Nation Flag
+CONSTANT: extra-flags { "๐" "๐ฉ" "๐" "๐ด" "๐ณ" "๐ณ๏ธโ๐" "๐ดโโ ๏ธ" "๐ด๓ ง๓ ข๓ ฅ๓ ฎ๓ ง๓ ฟ" "๐ด๓ ง๓ ข๓ ณ๓ ฃ๓ ด๓ ฟ" "๐ด๓ ง๓ ข๓ ท๓ ฌ๓ ณ๓ ฟ" "๐ณ๏ธโ๐งโโฌ๏ธโ๐ง" }
+
+: explain-extra-flags ( -- )
+ extra-flags [
+ dup . [ dup char>name ] { } map>assoc .
+ ] each ;
+
+
SYNTAX: FLAG: scan-token unicode>flag suffix! ;