main=putStr$do x<-[0..20];shows(length$show$2^2^x)" "