use strict;
use warnings;
#use Data::Dump qw/pp dd/;
#use feature qw/say/;

my @table = split /\n/, <<'__TABLE__';
>	++k;
<	--k;
+	++*k;
-	--*k;
.	putchar(*k);
,	*k = getchar();
[	while (*k) {
]	}
__TABLE__

my %trans = map { split/\s+/, $_, 2 } @table;
#pp \%trans;



my $bfs   = '+[--[--]->+++<]>+.---';
my $level = 0;

for my $atom ( split //, $bfs ) {

    $level-- if $atom eq "]";
    print "\t" x $level;
    $level++ if $atom eq "[";
    
    print $trans{$atom};
    #print "\t\t\t// was '$atom'";         # debug
    print "\n";
}


##</code><code>##

++*k;
while (*k) {
	--*k;
	--*k;
	while (*k) {
		--*k;
		--*k;
	}
	--*k;
	++k;
	++*k;
	++*k;
	++*k;
	--k;
}
++k;
++*k;
putchar(*k);
--*k;
--*k;
--*k;