main=interact$(""%).lines s%(t:x)=s&t++'\n':t%x;s%_=s&"" ""&""="" (a:x)&(b:y)|' '<a="|_|"++drop 1(x&y)|a<b=a:'_':x&y|0<1=a:a:x&y x&y=max" "x&max" "y
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page