sub getTypeName {
    my $typeNum = shift;

    die "$typeNum not valid\n"
        unless 1 <= $typeNum && $typeNum <= 3;

    my $typeName = ('A' .. 'C')[$typeNum - 1] . " NAME";

    return $typeName;
}