Инвентарный код

Библиотека присваивает каждой книге короткий инвентарный код: первые три буквы фамилии автора ЗАГЛАВНЫМИ плюс последние две цифры года издания.

Напишите функцию book_code(author, year), которая принимает фамилию автора (непустая строка из латинских букв, минимум 3 символа) и год (целое от 1000 до 9999) и возвращает строку: первые 3 буквы фамилии в верхнем регистре + две последние цифры года (всегда 2 символа, ведущий ноль сохраняется).

Пример:

book_code("Tolkien", 1954) -> "TOL54"
book_code("Doe", 2007) -> "DOE07"