#!/usr/bin/perl -w 
 
use strict; 
 
my $b = 8; 
 
foreach my $line (<DATA>) { 
  chomp $line; 
  my $a = 0; 
  foreach my $num (split //, $line) { 
    my ($multiplier, $char); 
    $a++; 
    if ($a == 1) { 
      $b--; 
      $multiplier = $b + hex $num; 
    } else { 
      $multiplier = hex $num; 
    } 
    if ($a & 1) {  
      $char = ' '; 
    } else { 
      $char = '_/'; 
    } 
    print $char x $multiplier; 
  } 
  print "\n"; 
} 
 
exit 1; 
 
__DATA__ 
8161644161 
81412141612161 
81216121612161 
81216121612161 
81252445 
81216121a161 
0161216121a161 
0161216121a161 
23416121a161