program answer
  implicit none
  integer(8) :: K, i
  character(len=15) :: S
  read(*,*) K
  do i = 1, K
     S(3*i-2:3*i-2)='A'
     S(3*i-1:3*i-1)='C'
     S(3*i:3*i)='L'
  end do
  write(*,*) S(1:3*K)
  stop
 end program answer