r=readLn
main=do x<-r;r>>=mapM putStrLn.f[f"+-"x,f"| "x]
f(o:i)n=o:([1..n]>>i)++[o]