fork download
  1. test_do = do
  2. let hello = "Hello"
  3. x <- getLine
  4. putStrLn hello
  5.  
  6. test_real = let hello = "Hello" in
  7. getLine >>= \x ->
  8. putStrLn hello >>
  9.  
  10. main = do
  11. test_do
  12. test_real
Success #stdin #stdout 0.02s 3596KB
stdin
Tester
Tester
stdout
Hello
Tester
Hello
Tester