#!perl -nl for$l(-$_..$_){$t=/_/?join'',map'/_'x($%=rand 1+($-=y!!!c/2)).'/\\'.'_\\'x($--$%),split/\/\\/,$_,-1:__ x$_;$l>0&&$t!~s!^.(\\.*/).$!$1!?redo:print$"x abs$l-.5,$_=$t}