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