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