$_=' /\ 
/__\
'
50.upto(getc){t="";$_=gsub(/.+/){t+=$&*2+$/;$&.center~/$/*2}+t}
$><<gsub(/ +$/,'')