test_mmul = ->
  i = 0
  j = 0
  m = 0
  logout("test mmul\n")
  for i in [-100..100]
    for j in [-100..100]
      test_mmulf(i, j, i * j)
  logout("ok\n")

test_mmulf = (na, nb, nc) ->

  a = mint(na)
  b = mint(nb)
  c = mint(nc)

  d = mmul(a, b)

  if (mcmp(c, d) == 0)
    return
  else
    throw new Error("test_mmulf error")

test_mdiv = ->
  i = 0
  j = 0
  m = 0
  logout("test mdiv\n")
  for i in [-100..100]
    for j in [-100..100]
      if (j)
        if i/j > 0
          expectedResult = Math.floor(i / j)
        else
          expectedResult = Math.ceil(i / j)
        test_mdivf(i, j, expectedResult)
  logout("ok\n")

test_mdivf = (na, nb, nc) ->

  a = mint(na)
  b = mint(nb)
  c = mint(nc)

  d = mdiv(a, b)

  if (mcmp(c, d) == 0)
    return
  else
    debugger
    throw new Error("test_mdivf error")


test_mmod = ->
  i = 0
  j = 0
  m = 0
  logout("test mmod\n")
  for i in [-100..100]
    for j in [-100..100]
      if (j)
        test_mmodf(i, j, i % j)
  logout("ok\n")

test_mmodf = (na,nb,nc) ->

  a = mint(na)
  b = mint(nb)
  c = mint(nc)

  d = mmod(a, b)

  if (mcmp(c, d) == 0)
    return
  else
    throw new Error("test_mmodf error")