-- !!! test simple Integer things
--
f x y z = x y z
main = do
putStr (shows integer_list "\n")
where
int_list :: [Int]
integer_list :: [Integer]
int_list = (map fromInteger integer_list)
integer_list = (map (* 2)
[1,3,5,7,9,
11111111111111111111111111111,
2222222222222222222222222222222222222,
3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333,
-11111111111111111111111111111,
-2222222222222222222222222222222222222,
-3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333
])