$_="000b2fb33600bdadaf363db6a400bcb6a426003dbda676b6a4";s#..#push@a,pack
v,hex$&#eg;print"\ec";while($x=4){for$z(@a[0..6]){printf"\e[%d;%dH%s$/",
$_/3,$x+$_%3,$_-5?(("|",vec($z,6,1)&$_>5?$_<10?"/":"\\":"_","|")[$_%3]x 
vec$z,11-$_,1)||$":$"for 4..11;$x+=4}select$q,$q,$q,4/push@a,shift@a}