Memory Error in generated C code.

[vidsinghal]

The C code for this program results in memory error.

data Recursive = Constructor (Recursive) (Int) (Int) | Nil

mkFoo :: Int -> Recursive
mkFoo len = if len <= 0
            then Nil
            else
              let rst = mkFoo (len-1)
                in Constructor rst 10 len


gibbon_main =
    let lst = mkFoo 1000
        _   = printPacked lst
    in ()