n = 5; fun S:1 : { i = 0; r = " "; while (i=i+1) < _[0] : r=r+" " ; r }; out S(n+1)+"(')\n"; i = 0; while (i=i+1) < n : out S(n-i+1)+"/ /\n" ; out "(_)_)\n"