# Pastebin z95TStPM
ints :: [Int]
ints
  = map
      (let {
         v :: Int -> Int -> Int
         v = * $fNumInt } in
       let {
         v1 :: Int
         v1 = read $fReadInt (unpackCString# "5"#) } in
       \ (v2 :: Int) -> v v2 v1)
      (: (I# 1#) (: (I# 2#) (: (I# 3#) (: (I# 4#) []))))