// Some bullshit for LOR neosilyators
#include <iostream>

void printChar(char c, int n)
{
  for (int i = 0; i < n; i++)
    std::cout << c;
}

void print(int k)
{
  printChar('(', k);

  if (k == 1)
  {
    printChar('a', 1);
  }
  else
  {
    printChar('a', 1);
    print(k - 1);
    printChar('a', 1);
  }

  printChar(')', k);
}

int main()
{
  int n;
  std::cin >> n;
  print(n);
  printChar('\n', 1);
  return 0;
}

// Some bullshit for LOR neosilyators
#include <iostream>

void printChar(char c, int n)
{
  for (int i = 0; i < n; i++)
    std::cout << c;
}

void print(int k)
{
  printChar('(', k);

  if (k == 1)
  {
    printChar('a', 1);
  }
  else
  {
    printChar('a', 1);
    print(k - 1);
    printChar('a', 1);
  }

  printChar(')', k);
}

int main()
{
  int n;
  std::cin >> n;
  print(n);
  printChar('\n', 1);
  return 0;
}

p(1) = (a)
p(2) = ((a(a)a))
p(3) = (((a((a(a)a))a)))
p(4) = ((((a(((a((a(a)a))a)))a))))

def fun(i):
    if i is 1:
        return '(a)'
    else:
        pattern="%s%s%s"
        return pattern % ('('*i+'a',fun(i-1),'a'+')'*i)

oid print(int k)
{
  printChar('(', k);

  if (k == 1)
  {
    printChar('a', 1);
  }
  else
  {
    printChar('a', 1);
    print(k - 1);
    printChar('a', 1);
  }

  printChar(')', k);
}

(define (print-char c n)
  (if (> n 0)
      (begin
        (display c)
        (print-char c (- n 1)))))

(define (solve n)
  (print-char "(" n)
  (if (= n 1)
      (print-char "a" 1)
      (begin
        (print-char "a" 1)
        (solve (- n 1))
        (print-char "a" 1)))
  (print-char ")" n))

def gen_str(level: Int): String = {
  if (level <= 1) "(a)"
  else "(" * level + "a" + gen_str(level - 1) + "a" + ")" * level
}

p 1 = "(a)"
p n = concat [replicate n '(', "a", p (n-1), "a", replicate n ')']

$ ghci
GHCi, version 6.12.3: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
Prelude> let f 1 = 1
Prelude> let f n = f $ n - 1
Prelude> f 5
^ Хрен...

Prelude> let p n = case n of 1 -> "(a)"; n -> concat [replicate n '(', "a", p (n-1), "a", replicate n ')']

#lang racket

(define (print-char c n)
  (printf (make-string n c)))

(define (print* n a b c)
  (print-char a n)
  (print-char b 1)
  (when (> n 1)
    (print* (- n 1) a b c)
    (print-char b 1))
  (print-char c n))

(define (print n)
  (print* n #\( #\a #\)))

* (defun ra (n)
  (cond
    ((< n 1)  (error "n must be 1 or higher"))
    ((= n 1) (format nil "(a)"))
    (t (concatenate 'string
                    (make-string n :initial-element '#\()
                    "a"
                    (funcall #'ra (- n 1))
                    "a"
                    (make-string n :initial-element '#\))))))

RA
* (ra 4)

"((((a(((a((a(a)a))a)))a))))"
* (ra 1)

"(a)"
* (ra 29)

"(((((((((((((((((((((((((((((a((((((((((((((((((((((((((((a(((((((((((((((((((((((((((a((((((((((((((((((((((((((a(((((((((((((((((((((((((a((((((((((((((((((((((((a(((((((((((((((((((((((a((((((((((((((((((((((a(((((((((((((((((((((a((((((((((((((((((((a(((((((((((((((((((a((((((((((((((((((a(((((((((((((((((a((((((((((((((((a(((((((((((((((a((((((((((((((a(((((((((((((a((((((((((((a(((((((((((a((((((((((a(((((((((a((((((((a(((((((a((((((a(((((a((((a(((a((a(a)a))a)))a))))a)))))a))))))a)))))))a))))))))a)))))))))a))))))))))a)))))))))))a))))))))))))a)))))))))))))a))))))))))))))a)))))))))))))))a))))))))))))))))a)))))))))))))))))a))))))))))))))))))a)))))))))))))))))))a))))))))))))))))))))a)))))))))))))))))))))a))))))))))))))))))))))a)))))))))))))))))))))))a))))))))))))))))))))))))a)))))))))))))))))))))))))a))))))))))))))))))))))))))a)))))))))))))))))))))))))))a))))))))))))))))))))))))))))a)))))))))))))))))))))))))))))"
* (ra 0)

debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial thread" RUNNING
                                               {1002BCAD11}>:
  n must be 1 or higher

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(RA 0)
0] 0

* 

(deftype natural ()
  '(integer 1 *))

(defun ra (n)
  (check-type n natural)
  (if (= n 1)
      (format nil "(a)")
      (concatenate 'string
                   (make-string n :initial-element '#\( )
                   "a"
                   (funcall #'ra (- n 1))
                   "a"
                   (make-string n :initial-element '#\) ))))

proc ffunc { n } {
	return [ join [ map { x {
		if { !$x } {
			return -code continue
		}
		if {$x >= 0} {
			return [ string repeat "(" $x ]
		} 
		return [ string repeat ")" [ expr -$x ] ]
	}} [ range $n -$n ] ] "a" ]
}
# map,range взять из man`ов или wiki.tcl.tk

$ cat test.fs

: printChar 
	{ c n -- } assert( n 0 > )
	n 0 do c emit loop
;

: print recursive 
	{ n -- } assert( n 0 > )
	[char] ( n printChar
	n 1 = if 
		[char] a 1 printChar
	else 
		[char] a 1 printChar
		n 1- print
		[char] a 1 printChar
	endif 
	[char] ) n printChar
;

CR
1 print CR
2 print CR
3 print CR
4 print CR
29 print CR
CR
BYE


$ gforth test_0003.fs 

(a)
((a(a)a))
(((a((a(a)a))a)))
((((a(((a((a(a)a))a)))a))))
(((((((((((((((((((((((((((((a((((((((((((((((((((((((((((a(((((((((((((((((((((((((((a((((((((((((((((((((((((((a(((((((((((((((((((((((((a((((((((((((((((((((((((a(((((((((((((((((((((((a((((((((((((((((((((((a(((((((((((((((((((((a((((((((((((((((((((a(((((((((((((((((((a((((((((((((((((((a(((((((((((((((((a((((((((((((((((a(((((((((((((((a((((((((((((((a(((((((((((((a((((((((((((a(((((((((((a((((((((((a(((((((((a((((((((a(((((((a((((((a(((((a((((a(((a((a(a)a))a)))a))))a)))))a))))))a)))))))a))))))))a)))))))))a))))))))))a)))))))))))a))))))))))))a)))))))))))))a))))))))))))))a)))))))))))))))a))))))))))))))))a)))))))))))))))))a))))))))))))))))))a)))))))))))))))))))a))))))))))))))))))))a)))))))))))))))))))))a))))))))))))))))))))))a)))))))))))))))))))))))a))))))))))))))))))))))))a)))))))))))))))))))))))))a))))))))))))))))))))))))))a)))))))))))))))))))))))))))a))))))))))))))))))))))))))))a)))))))))))))))))))))))))))))

$ cat test_0003.fs
...
$ gforth test_0003.fs 
...

multi sub p(1)  { '(a)' }
multi sub p($n) { ('(' x $n) ~ 'a' ~ p($n-1) ~ 'a' ~ (')' x $n) }
say p 4