#! /usr/bin/perl -Tw

@FN=(
  ["  ______ ", "  ___ ", "  ______ ", " _______ ", " _    __ ", "  ______ ",
   "   ___   ", " _______ ", "  ______ ", "  ______ "],
  [" |  __  |", " /_  |", " |_____ |", "|_____  |", "| |  |  |", " |  ____|",
   "  /  /   ", "|____   |", " |  __  |", " |  _   |"],
  [" | |  | |", "  |  |", "      / /", "   ___| |", "| |__|  |", " | |____ ",
   " /  /___ ", "     |  |", " | |__| |", " | |_|  |"],
  [" | |  | |", "  |  |", "    / /  ", "  |___  |", "|____   |", " |____  |",
   " |   _  |", "     |  |", "  | __ | ", " |___   |"],
  [" | |__| |", "  |  |", "  / /___ ", " _____| |", "     |  |", "  ____| |",
   " |  |_| |", "     |  |", " | |__| |", "  ___|  |"],
  [" |______|", "  |__|", " |______|", "|_______|", "     |__|", " |______|",
   " |______|", "     |__|", " |______|", " |______|"],
);

  L:
  for ($k=0; $k<=$#ARGV; $k++) {
  $_ = $ARGV[$k];
  /^[0-9]+$/ || next L;
  $l = length($_);
  for ($i=0; $i<6; $i++) {
    for ($j=0; $j<$l; $j++) {
      $g = int(substr("$_", $j, 1));
      print "$FN[$i][$g] ";
    }
    print "\n";
  }
  print "\n";
}