repeat local n = read (); write (n) until n > 0