((rec(f x)(receive(y z)(quotient&remainder(read)10)(print #0=(if(= x y)z(if(= x z)y x)))(f #0#)))1)