sub FLAG_MASK ()    { FLAG_FOO | FLAG_BAR }

sub FOO_SET () { 1 if FLAG_MASK & FLAG_FOO }