kill(all)$

van=facebook.com/LearningCalculus$

y^16=16$
s:solve(%,y)$

for i:1 thru 16 do
print("Answer ", i, ": ", fullratsimp(makelist(rhs(s[i])^rhs(s[i])^rhs(s[i])^12,i,1,16)[i]));