figurePTranslator header p = do
    (flags, name) <- compose number (simple header) p
    return $ if testBit flags 16
             then NamedDefaultFigure name
             else NamedFigure name (not . testBit flags . fromEnum)
-- }}}
-- known properties list {{{
-- |
-- Types of properties, as given in the SGF specification.
figurePTranslator header p = do
    (flags, name) <- compose number (simple header) p
    return $ if testBit flags 16
             then NamedDefaultFigure name
             else NamedFigure name (not . testBit flags . fromEnum)
-- }}}
-- known properties list {{{
-- |
-- Types of properties, as given in the SGF specification.
figurePTranslator header p = do
    (flags, name) <- compose number (simple header) p
    return $ if testBit flags 16
             then NamedDefaultFigure name
             else NamedFigure name (not . testBit flags . fromEnum)
-- }}}
-- known properties list {{{
-- |
-- Types of properties, as given in the SGF specification.