#!/usr/bin/perl

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

@list = split /\s+/,$list;

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