Problem:
Score : 100 points

Problem Statement

A programming competition site AtCode regularly holds programming contests.

The next contest on AtCode is called ABC, which is rated for contestants with ratings less than 1200.

The contest after the ABC is called ARC, which is rated for contestants with ratings less than 2800.

The contest after the ARC is called AGC, which is rated for all contestants.

Takahashi's rating on AtCode is R. What is the next contest rated for him?

Constraints

0 ≤ R ≤ 4208

R is an integer.

Input

Input is given from Standard Input in the following format:

R

Output

Print the name of the next contest rated for Takahashi (ABC, ARC or AGC).

Sample Input 1

1199

Sample Output 1

ABC

1199 is less than 1200, so ABC will be rated.

Sample Input 2

1200

Sample Output 2

ARC

1200 is not less than 1200 and ABC will be unrated, but it is less than 2800 and ARC will be rated.

Sample Input 3

4208

Sample Output 3

AGC

Solution in Go (1.6) (judge verdict: Runtime Error)

//  ABC104_C_AllGreen.go
// 

package main

import (
    "fmt"
    //"strings"
)

var pc [][]int
var pointMatrix [][]int
var min int

func calPoint(point int,i int ,D int ,G int,correct int,min *int) {

  if i == D - 1 {
      for j := 0; j < pc[i][0]+1; j++{
          //fmt.Println(j,":",point+pointMatrix[i][j],"correct:",correct+j)
          if point+pointMatrix[i][j] >= G && correct+j <= *min {
             *min = correct+j
          }
      }
      return

  } else {

     for j := 0 ; j < pc[i][0]+1 ; j++ {
       //fmt.Print(j,"-")
        if correct+j >= *min {
           return
        }
        calPoint(point+pointMatrix[i][j],i+1,D,G,correct+j,min)
     }
  }
}

func main() {
  var D int
  var G int
  var P int
  var C int
  var point int
  var correct int

  fmt.Scan(&D,&G)

  pc = make([][]int,D)

  for i := 0; i < D; i++ {
     pc[i] = make([]int,2)
  }

  min = 1

  for i := 0 ; i < D ; i++ {
    fmt.Scan(&P,&C)
    pc[i][0] = P
    pc[i][1] = C
    min *= P

    }

  //fmt.Println(pc)

  pointMatrix = make([][]int,D)

  for i := 0; i < D; i++ {
    pointMatrix[i] = make([]int,pc[i][0]+1)
  }

  for i :=0; i < D; i++ {
    for j :=0 ; j <= pc[i][0]; j++ {
      pointMatrix[i][j] = j * (i+1) * 100
    }
      pointMatrix[i][pc[i][0]] += pc[i][1]
   }

    //fmt.Println(pointMatrix)

  point = 0
  correct = 0

  calPoint(point,0,D,G,correct,&min)

  fmt.Println(min)
}