fork download
  1.  
  2. import System.IO
  3.  
  4. showHello n = if n=="Denis" then "Hello "++n else "By "++n
  5.  
  6. main = do
  7. putStr "Your name: "
  8. hFlush stdout
  9. name <- getLine
  10. putStrLn $ showHello name
  11.  
Success #stdin #stdout 0s 0KB
stdin
Boris
stdout
Your name: By Boris