#!perl -lp print"|",($_-$#A?$":_)x$_,"\\"for@A=0..$_;$_="*"x32