fork download
  1. import Data.List
  2. import Control.Exception
  3.  
  4. testTuple x = (x, [1, 2, x, undefined])
  5.  
  6. test x = let tuple = testTuple x in tuple
  7.  
  8. main = do
  9. putStrLn "Executing test..."
  10. let x = test 5
  11. evaluate x
  12. putStrLn "Done."
  13.  
Runtime error #stdin #stdout 0.02s 3592KB
stdin
Standard input is empty
stdout
Executing test...
Done.