: hex-color ( str -- color )
    hex>
    [ HEX: ff0000 bitand -16 shift ]
    [ HEX: 00ff00 bitand -8 shift ]
    [ HEX: 0000ff bitand ] tri 1.0 <rgba> ;

SYNTAX: COLOR# scan hex-color suffix! ;

! Examples:
!   COLOR# 336699
!   COLOR# ffffff