-- Haskell Introduction
-- Jost Berthold, VL Par. in fkt. Spr.
--
-- Parameters.hs
-- für GHC und Hugs (in Hugs keine Parameter)
---------------------------------------------
module Main where

import System   -- getargs

-- I/O in Haskell:
main :: IO ()
main = do
        args <- getArgs  -- args :: [String]
        putStrLn "Ihre Parameter:"
        printList args
        putStr "Bitte Eingabe: " -- Syntax error
	x <- getLine
	putStrLn ("Sie haben " ++ x ++ " eingegeben.")

-- Ausgabe einer Liste (Rekursion mit IO-Funktionen)
printList :: [String] -> IO ()
printList []     = return () -- Abbruch
printList (x:xs) = do
		    putStrLn x   -- ein Element schreiben
		    printList xs -- Rekursion