path: root/tp1/test/cm2.mj

main(x) = (s, r) where
  s = reg (x xor s);
  r = x and s
end where