{-# LANGUAGE TypeApplications, BangPatterns #-}
{-# LANGUAGE LambdaCase, DeriveFunctor #-}

import           Control.Applicative
import           Control.Arrow
import           Control.Monad
import           System.IO
import           Data.Bits
import           Data.Char
import           Data.List
import           Data.Maybe
import           Data.Ord
import           Data.Foldable
import           Data.Monoid
import           Control.Monad.Fix
import           Control.Monad.ST
import qualified Data.Set                      as S
import qualified Data.Vector.Unboxed.Mutable   as V
import qualified Data.ByteString.Char8         as BS

twice :: (a -> a -> b) -> a -> b
twice f x = f x x

both :: Arrow a => a b c -> a (b, b) (c, c)
both = twice (***)

readsLn :: Read a => IO [a]
readsLn = mapM readIO . words =<< getLine





main = do
  n <- readLn @Int
  putStrLn $ take (n * 3) (cycle "ACL")
