@_=map{map$;x($_.E.-$')."|",5,2,//}-4..0;$\=$/;$,="+";print map y///c,($;x$_)=~/@_/xgfor<>