nyTime
  }

numeralSuffixList :: [(Text, Maybe Token)]
numeralSuffixList =
  [ ("K", double 1e3 >>= withGrain 3 >>= withMultipliable)
  , ("M", double 1e6 >>= withGra
rulePair :: Rule
rulePair = Rule
  { name = "a pair"
  , pattern =
    [ regex "雙|對"
    ]
  , prod = \_ -> integer 2 >>= withMultipliable >>= notOkForAnyTime
  }
rulePair = Rule
  { name = "a pair"
  , pattern =
    [ regex "雙|對"
    ]
  , prod = \_ -> integer 2 >>= withMultipliable >>= notOkForAnyTime
  }