module Greetings( main ) where

{- | 
 - Module       :       Greetings
 - Description  :       Small IO-example
 - Copyright    :       (c) Thomas Lang
 - License      :       BSD3

 - Stability    :       stable
 - Portability  :       portable


 -  This program does the following sample conversation:
 - 
 -  *Greetings> main
 -  Type in your name:
 -  Thomas Lang
 -  Welcome, Thomas Lang!
 -}
main :: IO()
main = do
   putStrLn "Type in your name:"
   name <- getLine
   putStrLn $ "Welcome, " ++ name ++ "!"