main=do a<-readLn;print$a^a^a^4^div 2a