actSeq = putChar 'A' >> putChar 'G' >> putChar 'H' >> putChar '\n'

doActSeq = do
  putChar 'A'
  putChar 'G'
  putChar 'H'
  putChar '\n'

echo1 = getLine >>= putStrLn

doEcho1 = do
  line <- getLine
  putStrLn line

echo2 = getLine >>= \line -> putStrLn $ line ++ "!"

doEcho2 = do
  line <-getLine
  putStrLn (line ++ "!")

echo3 :: IO ()
echo3 = getLine >>= \l1 -> getLine >>= \l2 -> putStrLn $ l1++l2

dialog :: IO()
dialog = putStr "What is your happy number? \n"
        >> getLine
        >>= \n->let num = read n :: Int in
                if num==7
                then putStrLn "Ah, lucky 7!"
                else if odd num
                  then putStrLn "Odd number! That's most people's choice..."
                  else putStrLn "Hm, even number? Unusual!"

doEcho3 = do
  line1 <- getLine
  line2 <- getLine
  putStrLn $ line1 ++ line2

doDialog = do
  putStrLn "What is your lucky number? \n"
  line <- getLine
  let num=read line
  if num==7
  then putStrLn "Ah, lucky 7!"
  else if odd num
    then putStrLn "Odd number! That's most people's choice..."
    else putStrLn "Hm, even number? Unusual!"

doTwoQuestions :: IO ()
doTwoQuestions = do
  putStr "What is your name? "
  name <-getLine
  putStr "how old are you? "
  age<-getLine
  print (name,age)

twoQuestions = putStr "What is your name? "
            >> getLine
            >>= \name -> putStr "how old are you? "
            >>getLine
            >>= \age -> print(name,age)




fun2 = putStr "What is your name? " >> getLine >>= \name -> putStrLn $  "Witaj "++name

fun3 = getLine >>= \line -> putStrLn line