program hi
  use, intrinsic :: iso_fortran_env
  implicit none
  integer(int32) :: n
  read(input_unit, *) n
  write(output_unit, '(a)') trim(merge("green    ", "difficult", n < 1200))
end program