procedure main() while a:=integer(read())do{ i:=1 every i*:=2to a write(i)} end