import Data.List
import Control.Exception

testTuple x = (x, [1, 2, x, undefined])

test x = let tuple = testTuple x in tuple

main = do
    putStrLn "Executing test..."
    let x = test 5
    evaluate x
    putStrLn "Done."
    print x