-- !!! 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
	])