map{$_='/'.__ x--$_.'_/'.'  'x$_.'\
';0while$_1=y/_/ /r,$\=${_./^ /}.$\.${_./\/ /}=~y'/\\'\/'r,s"(/.*)  " $1";$\=!print$",/ |_/g,'_
'}<>