use strict;
use warnings;

for my $tuple ([" ", 2], ["_", 1], [" ", 1], ["\\", 1], [" ", 11], ["|", 1], ["\n", 1],
               [" ", 1], ["|", 1], [" ", 3], ["|", 1],  [" ", 1],  ["_", 1], [" ", 1], ["\\", 1], [" ", 2], ["_", 2], ["|", 1], [" ", 1], ["|", 1], ["\n", 1],
               [" ", 1], ["_", 3], ["/", 1], [" ", 2],  ["_", 2],  ["/", 1], [" ", 1], ["|", 1],  [" ", 4], ["|", 1], ["\n", 1],
               ["_", 1], ["|", 1], [" ", 3], ["\\", 1], ["_", 3],  ["|", 1], ["_", 1], ["|", 1],  [" ", 3], ["_", 1], ["|", 1], ["\n", 1]
              ) {
    print $tuple->[0] x $tuple->[1];
}