REBOL[]while[x: input][print round/even do x]