Crackle Pop Implemented in Reason

cracklepop.re

let modulus numerator divisor => numerator - numerator / divisor * divisor;

let printNumberOrCracklePop number => {
  let potentialCrackle = modulus number 3 == 0 ? "Crackle" : "";
  let potentialPop = modulus number 5 == 0 ? "Pop" : "";
  let potentialOutput = potentialCrackle ^ potentialPop;
  if (potentialOutput == "") {
    print_int number
  } else {
    print_string potentialOutput
  }
};

for number in 1 to 100 {
  printNumberOrCracklePop number;
  print_string " "
};