let plus = fun (x:int) (y:int) ->
 let z = ref ( x + y ) in
  while !z > 127 do
   z := !z - 12 ;
  done ;
  while !z < 0 do
   z := !z + 12 ;
  done ;
  !z