_fullname()
{
    case $1 in
        aot)        _FULLNAME="All Over Twisted" ;;
        mods)       _FULLNAME="Mispaced Modifiers" ;;
        dodger)     _FULLNAME="Artful Dodger" ;;
        firkins)    _FULLNAME="Footloose and Firkin Free" ;;
        rats)       _FULLNAME="Cellar Rats" ;;
        imperial)   _FULLNAME="Imperial PUBlic Library" ;;
        spades)     _FULLNAME="Sam's Spades" ;;
        usual)      _FULLNAME="Usual Suspects" ;;
        george)     _FULLNAME="Jason George" ;;
        axxe)       _FULLNAME="Unnatural Axxe" ;;
        what)       _FULLNAME="Five of What?" ;;
        kilgours)   _FULLNAME="Kilgour's Bar Meets Grill" ;;
        azzurri)    _FULLNAME="Forza Azzurri" ;;
        naughts)    _FULLNAME="Frayed Naughts" ;;
        manchester) _FULLNAME="Manchester Arms" ;;
        clueless)   _FULLNAME="Clueless" ;;
        tap)        _FULLNAME="Reach for the Tap" ;;
        duke)       _FULLNAME="Duke of Gloucester" ;;
        mi5)        _FULLNAME="MI5" ;;
        oar)        _FULLNAME="On a Roll" ;;
        ferret)     _FULLNAME="Ferret and Firkin" ;;
        *) printf "%s\n" $1 >&2; false ;;
    esac
}

fullname()
{
    for _abbrvname
    do
      _fullname "$_abbrvname" && printf "%s\n" "$_FULLNAME"
    done
}

fullname_()
{
    FULLNAME_VAR=$1
    shift
    eval "FULLNAME_VAL=\$$FULLNAME_VAR"
    _fullname "$FULLNAME_VAL" && eval "$FULLNAME_VAR=\$_FULLNAME"
}

fullname__()
{
    FULLNAME_VAR=$1
    shift
    _fullname "$@" && eval "$FULLNAME_VAR=\$_FULLNAME"
}

_shortname()
{
    case $1 in
        aot)        _SHORTNAME="Twisted" ;;
        mods)       _SHORTNAME="Mods" ;;
        dodger)     _SHORTNAME="Dodger" ;;
        firkins)    _SHORTNAME="Firkins" ;;
        rats)       _SHORTNAME="C. Rats" ;;
        imperial)   _SHORTNAME="Imperial" ;;
        spades)     _SHORTNAME="Spades" ;;
        usual)      _SHORTNAME="Suspects" ;;
        george)     _SHORTNAME="Jason G." ;;
        axxe)       _SHORTNAME="Axxe" ;;
        what)       _SHORTNAME="5 of What?" ;;
        kilgours)   _SHORTNAME="Kilgour's" ;;
        azzurri)    _SHORTNAME="Azzurri" ;;
        naughts)    _SHORTNAME="Frayed N" ;;
        manchester) _SHORTNAME="Manchester A" ;;
        clueless)   _SHORTNAME="Clueless" ;;
        tap)        _SHORTNAME="The Tap" ;;
        duke)       _SHORTNAME="Duke of G." ;;
        mi5)        _SHORTNAME="MI5" ;;
        oar)        _SHORTNAME="On a Roll" ;;
        ferret)     _SHORTNAME="Ferret" ;;
        *) printf "%s\n" $1 >&2; false ;;
    esac
}


shortname()
{
    for _abbrvname
    do
      _shortname "$_abbrvname" && printf "%s\n" "$_SHORTNAME"
    done
}

shortname_()
{
    SHORTNAME_VAR=$1
    shift
    eval "SHORTNAME_VAL=\$$SHORTNAME_VAR"
    _shortname "$SHORTNAME_VAL" && eval "$SHORTNAME_VAR=\$_SHORTNAME"
}

shortname__()
{
    SHORTNAME_VAR=$1
    shift
    _shortname "$@" && eval "$SHORTNAME_VAR=\$_SHORTNAME"
}