code: function sc_modulo(x, y) {
      var remainder = x % y;
      // if they don't have the same sign
      if ((remainder * y) < 0)
  	return remainder + y;
      else
  	return remainder;
  }
docs: * META ((export #t)
  (peephole (modulo)))