ifa = do 
	putStr "Name: "
	name <- getLine
	if (name == "Koen")
		then putStrLn "I think Debugging haskell is simple"