procedure main() every 1to *(a:=read())do write(a) end