#/*[
# sig0.c - Don Yang (uguu.org)
#
# 09/11/04

$c = q%

#*/include<stdio.h>/*]*/

char *O = "\
   ++++[>++++++++<-]++++++++++>[>+>+++<<-]>>+++++++[>+>+<<-]>><<<<<..>>..  \
   ......<+++[>++++++++<-]>++>>>+.++++++++++++..----.<<<.-----------..[<+  \
   >>+<-]>>>+++++.<.>..<<-.>>------.+++.<.<<<.<...";

int/*[>][*/ main()
{
   int P, R, G, N[8], U;

   for(U = P = 0; U < 8; N[U++] = 0) {}

   for(U = G = U - U; O[R = G++];)
   {
      if( O[R] == 43 )
      {
         N[U]++;
      }
      else{if( O[R] == 45 )
      {
         N[U]--;
      }
      else{if( O[R] == 60 )
      {
         U--;
      }
      else{if( O[R] == 62 )
      {
         U++;
      }
      else{if( O[R] == 46 )
      {
         putchar(N[U]);
      }
      else{if( O[R] == 91 )
      {
         if( N[U] == 0 )
         {
            for(; O[G] - 93; G++)
            {
            }
            G++;
         }
      }
      else{if( O[R] == 93 )
      {
         for(G--; O[G] - 91; G--)
         {
         }
      }}}}}}}
   }

   return N[U]-(R+U)-P[O];
}
#define X/*
%;
($r = '
   $c =~ s/putchar/print+chr/;
   $c =~ s/([A-U])/\$$1/g;
   $c =~ s/char\s*\*\$O\s*=/\@O = unpack "C*",/;
   $c =~ s!int/[^/]+/!sub!;') =~ s/ //g;

eval $r;
eval $c . "main();";
#]*/