main=interact(\x->(\y->[" __",x>>"_","\n/ ",x>>" ",y,x,reverse y,x>>"_","__/"]>>=id)$"\\\n| "++([4,8..length x]>>(x>>" ")++" |\n| "))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page