testsuite/tests/numeric/should_run/T18604.hs


1
2
3
4
5
6
7
8
9
10

module Main (main) where

import Numeric.Natural

main :: IO ()
main = print (n - s)
  where
    n, s :: Natural
    n = 137503105969312982142385040956303729937425409769904987267247644890331944583201
    s = 370814112419299627365008243601943822482