blob: 2c17afc82518551447f4c9cdc0fe6dfb031fec94 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE MagicHash #-}
import GHC.Num.BigNat
import GHC.Num.Integer
main :: IO ()
main =
let b = integerToBigNatClamp# 251943445928310882947152017889649234
e = integerToBigNatClamp# 503886891856621765894304035779298468
m = integerToBigNatClamp# 503886891856621765894304035779298469
r = integerFromBigNat# (bigNatPowMod b e m)
in print r
|