INT x: SEQ stdin ? x WHILE x<>0 SEQ stdout ! x stdin ? x