main=interact(\x->let a#b=[a,a,"\n"]>>=((['1'..x!!0]>>b)++)in"+"#"-"#("|"#" "))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page