(&)=zip [s,t]=" -" x%c=(c:x)&(x++[c]) (a:x)#y=a:y#x;x#_=x x?c=[last$s:[max a b|c<t]++[c|a/=b,a>s,b>s]|(a,b)<-x] v y=y%t?'|' f x=[v u&v d?s&(h%s?s)?'+'#h|(u,d)<-x%[t,t..],h<-[u&d?t]]#[v y#y|y<-x] main=interact$unlines.f.lines
Note that non-ascii characters in the above source code will be escaped (such as \x9f).