let m,p=String.make,Printf.printf"%c%s"let rec f c i k=p c[|"
";m(k*2-3)' '|].(min 2i-1);i>1&f c(i-1)k
and g c i j k=p c[|"
";m i ' '|].(min 1j);j>0&g c(k-i)(j-1)k;;Scanf.scanf"%d %c"(fun i c->f c i i;for r=0to i-3do
p ' '(m r ' ');g c(i*2-5-r*2)(i*2-2)(i*2-4)done;p ' '(m(i-2)' ');f c i i)