tOkForAnyTime
  }

rulePair :: Rule
rulePair = Rule
  { name = "a pair"
  , pattern =
    [ regex "雙|對"
    ]
  , prod = \_ -> integer 2 >>= withMultipliable >>= notOkFo
ruleDozen :: Rule
ruleDozen = Rule
  { name = "a dozen of"
  , pattern =
    [ regex "打"
    ]
  , prod = \_ -> integer 12 >>= withMultipliable >>= notOkForAnyTime
  }
ruleDozen = Rule
  { name = "a dozen of"
  , pattern =
    [ regex "打"
    ]
  , prod = \_ -> integer 12 >>= withMultipliable >>= notOkForAnyTime
  }