#!/usr/bin/perl -w
# decode_template.pl - Don Yang (uguu.org)
#
# 07/01/07

use strict;

my $input = join '', <>;
foreach my $code (unpack 'C*', $input)
{
   next if chr($code) =~ /\s/;
   if( $code == ord(']') )
   {
      print "\n";
   }
   for(; $code <= ord('['); $code++)
   {
      print ' ';
   }
   for(; $code > ord(']'); $code--)
   {
      print 'X';
   }
}