    {-# LANGUAGE  MagicHash #-}

    module UU.Scanner.GenTokenSymbol() where
    import UU.Scanner.GenToken(GenToken(..))
    import UU.Parsing.MachineInterface(Symbol(..))

    instance Symbol (GenToken key tp val) where
      deleteCost :: GenToken key tp val -> Int#
    deleteCost (Reserved key
    _ Pos
    _) = Int#
    5#
      deleteCost GenToken key tp val
    _              = Int#
    5#