shortint      = read <$> (try (count 2 digit) <|> count 1 digit)                  :: Parser Int
shortint      = read <$> (try (count 2 digit) <|> count 1 digit)                  :: Parser Int
shortint      = read <$> (try (count 2 digit) <|> count 1 digit)                  :: Parser Int