main=interact(\x->let a#b=[a,a,"\n"]>>=((['1'..x!!0]>>b)++)in"+"#"-"#("|"#" "))