a=(0..20).map{|i|('H O H '[i%4*3,4]*9)[0,25]}
x=$<.map &:split
i=-4
2.times{x=x.map{|y|i+=4
j=-3
y.map{|n|j+=2
1-(1+n.to_i).times{j+=2
i<21?a[i][j]=?-:a[j][i-22]=?|}}}.transpose}
puts a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).