# [0,100000] proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "" .} proc scan(): int = while true: var k = getchar_unlocked() if k < '0': break result = 10 * result + k.ord - '0'.ord const INF = 100000 echo 0," ",0 let a = scan() if a == 0 : quit 0 echo INF," ",0 let b = scan() if b == 0 : quit 0 let x = (a + b - INF) div 2 let y = (a - b + INF) div 2 echo y," ",x