main=interact$f.head f '1'=unlines$"":[" "#(7-x)++"."#5++"|"#x|x<-[1..5]]++[" "++"#"#5++"|"#(6-x)|x<-[1..5]] f _="\n ...|\n ...||\n ###||| \n ###|| ..|\n ###| ..||\n ..||\n ##||\n ##|" c#n=[1..n]>>c
Note that non-ascii characters in the above source code will be escaped (such as \x9f).