#!/usr/bin/perl

use strict;

my @names = qw/ fred betty barney dino wilma peblles bamm-bamm /;
chomp( my $list = <STDIN>);
my @list = split(" ", $list);

foreach (@list) {
    print " $names[ $_ - 1]\n";
}

exit;