test_mpow = ->
  logout("testing mpow\n")


  # small numbers

  for i  in [-10...10]
    a = mint(i)
    x = 1
    for j in [0...10]
      b = mpow(a, j)
      c = mint(x)
      if (mcmp(b, c) != 0)
        throw new Error("failed test_mpow")
      x *= i


  logout("ok\n")

#endif