1 -- Testing readInt, lightly.
3 module Main(main) where
11 rd = readSigned (readInt 10 (isDigit) (digitToInt))
14 print (rd (show (343023920121::Integer)))
15 print (rd (show (3430239::Int)))
16 print (rd (show (1212 :: Int)))
17 print (rd (show (591125662431 `div` (517::Int))))
18 print (rd (show (-111::Int)))
19 print (rd (show (232189458241::Integer)))