main' =
  let s = show $ expandujStrom test
   in do putStrLn s
         putStrLn s

main = do
  putStr "Zadej jmeno "
  s <- getLine
  putStrLn $ "Ahoj " ++ s