<>=~$";$_='*'x$`.'|'x($'-1).$/;1while print,s/\*\|(\|*)(\**)$/|*$2$1/