$b=<>*0.5;$c=$b*4;$d="|".$"x$c."|";$e=$"x$b."|\n";$f="+"."-"x$c."+";print$"x($b+1).$f.$/;print$"x($b-$i)."/".$"x$c."/".$"x$i++."|\n"for 1..$b;print$f.$e;print$d.$e for 2..$b;print$d.$"x$b."+\n";print$d.$"x($b-++$k)."/\n"for 1..$b;print$f.$/