#!/usr/bin/perl -w
use strict;sub bf {shift;my $i=0;my @v;
map{$v[$i]+=m/\+/?1:m/-/?-1:0;print chr 
$v[$i] if(m/\./);}split(//);}my $eval='
sub japh{return $$?":":":"}';my $i = 'm
y $i=0;';my @c = qw($_=" [0-9] ";$_=&ja
ph;$$=&japh;s/:/+++++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++
++++++++++++.---------.+++++++++++++++.
--------./g;&bf($_););map{$$.=$_}@c;$_=
$$;s z[$c[1]|]z;zg;eval$eval;eval;