r=repeat
t=r '*'
s=r ' '
f m n|m>n=[take(n-2)s++"G*F"]
f m n=[take(n-m)s++take(2*m-1)t]++f(m+1)n
main=readLn>>= \i->mapM putStrLn(f 1 (i-1))